Macro Print

Download as doc, pdf, or txt
Download as doc, pdf, or txt
You are on page 1of 1

Sub PRINT1()

'

' PRINT1 Macro

' Macro recorded 08/07/02 by APC

'

'

Range("A2:j58").Select

ActiveSheet.PageSetup.PrintArea = "$A$2:$j$58"

ActiveWindow.SelectedSheets.PrintOut Copies:=1

ActiveSheet.PageSetup.PrintArea = ""

Range("A4").Select

End Sub

You might also like