Al finalizar cada aplicación, utilizo dos macros: Uno para configurar cada página de la aplicación y el otro para establecer el número de páginas que contendrá la aplicación.
Si bien, ambos macros satisfacen sus respectivos cometidos, hacen muy lento el proceso de la aplicación.
Seguramente hay formas más rápidas y eficientes de hacer lo mismo.
Agradeciendo desde ya su atención, les saluda muy atentamente,
Jorge_548
Sub Configurar()
'Configura àrea de impresiòn de cada pagina
With ActiveSheet.PageSetup
.LeftFooter = "&F " & Hoja
.CenterFooter = "Página &P"
.RightFooter = "&D"
.CenterHorizontally = True
.CenterVertically = True
.Orientation = Orientac
.PaperSize = xlPaperLetter
.Zoom = 50
.PrintArea = Area
.PrintTitleRows = TituloFilas
.PrintTitleColumns = ""
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub
Sub NumeroPaginas()
'Establece el Numero de Paginas contenidas en la hoja
paginas = ExecuteExcel4Macro("Get.Document(50)")
Range("A2").Select
If (paginas > 1) Then
With ActiveSheet
.Range("A2") = "La impresión"
.Range("A3") = "contiene " & paginas & " páginas"
Range("A2:A3").Select
With Selection.Font
.Size = 18
.Bold = True
End With
Range("A2:A3").Select
With Selection
.HorizontalAlignment = xlLeft
End With
Range("A2:C3").Select
Selection.Interior.ColorIndex = 6
End With
End If
Range("A1").Select