Buen día!! Recurro a Uds. para solucionar estos inconvenientes!!  1.- Coloqué un código en el evento "Workbook_Open para que al abrir el archivo me presente visualmente en las hojas las líneas punteadas que indican los límites de impresión (no la vista preliminar de impresión) pero me lo aplica sólo a la hoja activa. Cómo corregirlo?? 2.- Al activar la macro mediante el botón de comando "HojaNueva2016" me copia la hoja pero me bota un error y al correrla paso a paso me bota otro error. 3.- En ocasiones me presenta la vista preliminar en el código de la Hoja 1 y tengo que pulsar la tecla "ESC" para que el código continúe. Al incluir la instrucción "SendKeys {ESC}" me indica que hay un error de sintaxis. Agradecido de antemano!!!

htpps://1drv.ms/x/s!Aj0Foxi7Cq_3oyVd4llMlfH35i7V

 

Prueba así:

Private Sub Workbook_Open()
   For Each hoja In Sheets
      hoja.DisplayPageBreaks = True
   Next
End Sub

 

 

Gracias @Macro Antonio!!! Funciona según lo esperado por mí!! 

Hace 18 horas, PedroJSuarez dijo:

2.- Al activar la macro mediante el botón de comando "HojaNueva2016" me copia la hoja pero me bota un error y al correrla paso a paso me bota otro error. 3.- En ocasiones me presenta la vista preliminar en el código de la Hoja 1 y tengo que pulsar la tecla "ESC" para que el código continúe. Al incluir la instrucción "SendKeys {ESC}" me indica que hay un error de sintaxis.

Con repecto a esto?? Le agradezco!!!

No se puede descargar el archivo.

Disculpa @Macro Antonio. Tengo problemas para subir archivos..

htpps://1drv.ms/x/s!Aj0Foxi7Cq_3oyVdllMIfH35i7v

 

Seguimos igual.

 

Hace 22 horas, PedroJSuarez dijo:

Disculpa @Macro Antonio. Tengo problemas para subir archivos..

Voy a una cabina a subir el archivo mientras soluciono lo de la compu.. Disculpa... Espero sea hoy ó a más tardar mañana..

https://1drv.ms/x/s!Aj0Foxi7Cq_3oyVd4llMIfH35i7v

Hola @Macro Antonio!!! Aquí está el enlace!!

 

 

 

Prueba así:

Sub HojaNueva2016()
Sheets("Secundaria").PrintPreview
SendKeys "{ESC}"
ActiveSheet.Copy After:=Sheets(2)
With ActiveSheet
   .Name = "VENTAS 2016"
   .Range("E5") = "VENTAS CORRESPONDIENTES AL MES DE ENERO DE 2016"
   .Range("F11") = 0
   .Range("F11").Copy ActiveSheet.Range("F12:F36")
   .Range("A11").Copy ActiveSheet.Range("A12:A36")
End With
ActiveCell.Select
End Sub

 

Hola @Macro Antonio!!! Al pulsar el botón de la hoja "Principal" para correr la macro ésta no corre.. al pulsarla varias veces me presenta el siguiente error: "No se puede ejecutar la macro. Puede que no esté disponible en este libro ó que se hayan desabilitado las macros". Este error me lo presenta en ocasiones en otros libros con otras macros..

Está mal configurado el botón. Click derecho sobre el botón\Asignar macro.

Agradecido @Macro Antonio... Doy por Solucionado este tema. Saludos desde Venezuela!!!