Seleccionar área de impresión con macro
Tengo un libro que tiene una hoja con el formato de factura, como la factura dependiendo del formato tiene un área de impresión diferente, para no estar cambiando manualmente el área de impresión, quiero hacerlo mediante una macro, la cual es la siguiente:
Sub RangoImpresion()
Sheets("FACTURA").Range("B2:AL65").Select
End Sub
La pregunta es como hago para que al ejecutar una macro que imprime el formato, ¿pueda simplemente llamar la macro "RangoImpresion" para que se me seleccione el área de impresión?; la macro es la siguiente:
Sub Imprimir_direcFact_1()
Range("B2:AL73").Select '===> aquí cambiar por la macro "RangoImpresion"
ActiveSheet.PageSetup.PrintArea = "$B$2:$AL$73" '===> aquí cambiar por la macro "RangoImpresion"
With ActiveSheet.PageSetup
.PrintArea = ""
.Orientation = xlPortrait 'xlLandscape
.PaperSize = xlPaperLetter 'formato carta
.BlackAndWhite = False 'incluir colores o no
End With
'imprimir las celdas seleccionadas (1 copia)
ActiveWindow.Selection.PrintOut copies:=1, collate:=True
End Sub
1 Respuesta
Prueba así:
Sub RangoImpresion()
Sheets("FACTURA").Range("B2:AL65").Select
End Sub
Sub Imprimir_direcFact_1()
Call RangoImpresion
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.PrintArea = ""
.Orientation = xlPortrait 'xlLandscape
.PaperSize = xlPaperLetter 'formato carta
.BlackAndWhite = False 'incluir colores o no
End With
'imprimir las celdas seleccionadas (1 copia)
ActiveWindow.Selection.PrintOut copies:=1, collate:=True
End Sub
