Macro especificaciones de impresión

Buen día. Quiero saber cómo establecer las especificaciones de impresión desde una macro. Por ejemplo, que imprima siempre en borrador, en ambas caras, desde la última hoja, etc.
Ya intenté grabar la rutina, pero sólo aparece ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Gracias.

1 respuesta

1
Respuesta de
Posibles instrucciones:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
on Error Resume Next
.PageSetup.LeftFooter = " &F &A" 'works in print preview
.PageSetup.LeftFooter = ThisWorkbook.FullName & " &A"
.PageSetup.RightFooter = "&8 &D &T"
If LCase(ActiveSheet.Name) = "sheet28" Then
.PageSetup.PrintArea = .Cells(1, 1).Resize( _
.Range("A" & Rows.Count).End(xlUp).Row, Columns.count).Address
End If
End With
jcgonzalez3165@gmail.com
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje