Snasui Excel Forum

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("P1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("P2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("FX").Select
    Range("F12").Select
End Sub

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
    Application.Dialogs(xlDialogPrinterSetup).Show
    Sheets("P1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=InputBox("Enter copies"), Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("P2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=InputBox("Enter copies"), Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("FX").Select
    Range("F12").Select
End Sub