25/11/2010, 16:19
|
 | | | Fecha de Ingreso: noviembre-2007 Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 17 años Puntos: 69 | |
| Respuesta: programar 2 macros (codigos) en uno solo para un solo
Prueba insertando la líneade color en ese espacio de tu código y me comentas.
If ImprimirHoja = "Activa" Then ImprimirHoja = estaHoja
If MsgBox("Se imprimirá la hoja: " & ImprimirHoja & Chr(13) _
& Chr(13) _
& "¿Desea continuar?", vbExclamation + vbDefaultButton1 + vbYesNo, "Por favor confirme la acción") = vbNo Then
Exit Sub
Else
'----------------------------
Application.PrintCommunication = False
Worksheets(estaHoja).Activate
With ActiveSheet.PageSetup
.PrintArea = ""
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar |