imprimir pie de pagina
Publicado por Albert (204 intervenciones) el 05/04/2009 11:39:35
Estimados foreros, tengo un problema necesito poner un pie de pagina distinto en cada una de las dos copias de una factura montada en vba sobre excel he intentado varias opciones pero no salgo adelante, les adjunto la que creo es la que mas se acerca a la solución pero me da error "se esperaba expresión"
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.LeftMargin = Application.InchesToPoints(0.45)
.TopMargin = Application.InchesToPoints(0.36)
.BottomMargin = Application.InchesToPoints(0.04)
.PrintTitleRows = "$1:$3"
.LeftFooter = "Ejemplar para el Arquitecto"
.RightFooter = "&P de &N"
End With
With print.newpage
.LeftFooter = "Ejemplar para el cliente"
End With
con:
With ActiveSheet.PageSetup.printnewpage
ni
With ActiveSheet.PageSetup.print.newpage
Gracias de antemano por su ayuda
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.LeftMargin = Application.InchesToPoints(0.45)
.TopMargin = Application.InchesToPoints(0.36)
.BottomMargin = Application.InchesToPoints(0.04)
.PrintTitleRows = "$1:$3"
.LeftFooter = "Ejemplar para el Arquitecto"
.RightFooter = "&P de &N"
End With
With print.newpage
.LeftFooter = "Ejemplar para el cliente"
End With
con:
With ActiveSheet.PageSetup.printnewpage
ni
With ActiveSheet.PageSetup.print.newpage
Gracias de antemano por su ayuda
Valora esta pregunta
0