
Sub stampa()
'
' stampa Macro
'
'
ActiveWindow.SmallScroll Down:=0
Range("A1:F45").Select
Range("F1").Activate
Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
ActiveWindow.SmallScroll Down:=-63
Range("G5").Select
End Sub |
Sub stampa()
Range("A1:F45").PrintOut Copies:=1, Collate:=True
End Sub |
