.
Te recomiendo que leas un excelente libro sobre Excel el que te ayudará operar las planillas de cálculo, haz click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.
Vista Normal
Vista Previa de Impresión
Vista de salto de página
Vista diseño de página
Vista pantalla completa
Es posible en alguna macro que necesitemos determinada vista para ellos debemos saber el código necesario
Con el código siguiente lo que obtenemos es una vista normal de Excel, es decir la que estamos acostumbrados a ver cuando iniciamos la aplicación, ver figura siguiente.
ActiveWindow.View = xlNormalView Con el código siguiente lo que obtenemos es una de diseño de página de Excel, ver figura siguiente.
ActiveWindow.View = xlPageLayoutView
El siguiente código sirve para obtener una vista de salto de página de Excel, ver la figura siguiente
ActiveWindow.View = xlPageBreakPreview
Con los códigos siguientes se obtiene ve la vista previa de impresión, cualquier de las dos formas llevan al mismo resultado, ver la imagen siguiente.
Application.Dialogs(xlDialogPrintPreview).Show
ThisWorkbook.PrintPreview
El código siguiente activa la vista pantalla completa, esto se realiza con True con False se sale de pantalla completa.
Application.DisplayFullScreen = True
Application.DisplayFullScreen = False
Se ha expuesto en el código que abajo un muy pequeño ejemplo que permite configurar una página y al final obtener una vista de diseño de página de Excel. Si copias y pegas el código en un módulo de VBA verás como resultado que la macro configura la hoja de Excel modificando los margenes izquierdo, derecho, superior, inferior, de encabezado y pie de página, selecciona o configura la página para que se impriman los encabezados y líneas de división. Posterior a ello activa la vista diseño de página.
En el siguiente vídeo de Youtube se muestra una explicación más detallada.
Código que se inserta en un módulo
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.748031496062992)
.BottomMargin = Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = True
.PrintGridlines = True
End With
Application.PrintCommunication = True
ActiveWindow.View = xlPageLayoutView
End sub
ActiveWindow.View = xlNormalView
Con el código siguiente lo que obtenemos es una de diseño de página de Excel, ver figura siguiente.
ActiveWindow.View = xlPageLayoutView
El siguiente código sirve para obtener una vista de salto de página de Excel, ver la figura siguiente
ActiveWindow.View = xlPageBreakPreview
Con los códigos siguientes se obtiene ve la vista previa de impresión, cualquier de las dos formas llevan al mismo resultado, ver la imagen siguiente.
Application.Dialogs(xlDialogPrintPreview).Show
ThisWorkbook.PrintPreview
El código siguiente activa la vista pantalla completa, esto se realiza con True con False se sale de pantalla completa.
Application.DisplayFullScreen = True
Application.DisplayFullScreen = False
Se ha expuesto en el código que abajo un muy pequeño ejemplo que permite configurar una página y al final obtener una vista de diseño de página de Excel. Si copias y pegas el código en un módulo de VBA verás como resultado que la macro configura la hoja de Excel modificando los margenes izquierdo, derecho, superior, inferior, de encabezado y pie de página, selecciona o configura la página para que se impriman los encabezados y líneas de división. Posterior a ello activa la vista diseño de página.
En el siguiente vídeo de Youtube se muestra una explicación más detallada.
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.748031496062992)
.BottomMargin = Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = True
.PrintGridlines = True
End With
Application.PrintCommunication = True
ActiveWindow.View = xlPageLayoutView
End sub
.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends