Imprimir con opciones de configurar pagina
Publicado por felix (2 intervenciones) el 05/10/2006 00:20:41
Muchachos,
una consulta. En una macro estoy imprimiendo un area seleccionada:
Sub PRINT_ALE_CUADRE()
Application.Goto Reference:="A_LIQUIDOS"
ActiveSheet.PageSetup.PrintArea = "$D$1:$N$103"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Goto Reference:="CUADRE"
ActiveSheet.PageSetup.PrintArea = "$B$3:$N$103"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lo que deseo es a esta macro de impresion pasarle parámetros de configurar pagina osea por ejm, que la impresión sea horizontal, y que la escala sea el 45% del tamaño normal y que se ajuste a pagina de ancho por 1 de alto.
Como puedo hacer eso???.
SAludos cordiales,
Félix
una consulta. En una macro estoy imprimiendo un area seleccionada:
Sub PRINT_ALE_CUADRE()
Application.Goto Reference:="A_LIQUIDOS"
ActiveSheet.PageSetup.PrintArea = "$D$1:$N$103"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Goto Reference:="CUADRE"
ActiveSheet.PageSetup.PrintArea = "$B$3:$N$103"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lo que deseo es a esta macro de impresion pasarle parámetros de configurar pagina osea por ejm, que la impresión sea horizontal, y que la escala sea el 45% del tamaño normal y que se ajuste a pagina de ancho por 1 de alto.
Como puedo hacer eso???.
SAludos cordiales,
Félix
Valora esta pregunta
0