Continuous printing with Macros possible?

Question

Is it possible to print multiple pages without stoping for each page? I have a print command that prints three different sheets in PDF, but stops at the beginning of each sheet and requires me to save that corresponding sheet as a different name. I would like it just to print one continuous report. This is my coding.

Sub Macro1()

'

' Macro1 Macro

'

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

Sheets("Workup 1").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

Sheets("PO List").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

End Sub

budman36 · Answer

Haytham Amairah&nbsp;yes... I would like all three sheets (that my current code saves) to be saved as one PDF, NOT the entire work book. &nbsp;Your code would save the entire workbook.... correct?

haytham amairah · Answer

Budman36&nbsp;Hi,&nbsp;If you just want to save each sheet of them as PDF, you can use this code instead:Sub Macro1()
'In the below line type the full path of the location you want to save in
ChDir "C:\Users\&lt;UserName&gt;\Desktop"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveSheet.Name, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

Sheets("Workup 1").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveSheet.Name, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

Sheets("PO List").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveSheet.Name, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub&nbsp;If you want to run the command on all sheets in the workbook, you can encapsulate it in a For-Each-Loop as follows:Sub Macro1()
ChDir "C:\Users\&lt;UserName&gt;\Desktop"
    For Each Sheet In Sheets
        Sheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            Sheet.Name, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            False
    Next Sheet
End Sub&nbsp;Hope that helps

budman36 · Answer

Haytham Amairah&nbsp;Thank you for the response.The first code you suggest would let me save them as 3 different documents (PDF)? &nbsp;If so, that's what my current code does. &nbsp;I am looking to have it print/save PDF as one continuous form as if it was all one page. &nbsp;That would be your second code? &nbsp;I am confused on how you explained you options.&nbsp;

haytham amairah · Answer

Budman36&nbsp;The first code saves the specific sheets as PDF, each one in a separate PDF file which are the currently selected sheet, sheet Workup 1, and sheet PO List.&nbsp;The second code does the same thing. but the difference is that it loops through each sheet in the workbook and save it as PDF regardless of the sheet names and count. It also names the PDF as the original sheet name in Excel.&nbsp;None of them printout the PDFs, they just save as PDF locally!

haytham amairah · Answer

Budman36&nbsp;If you want to save all worksheets in the workbook in one continuous PDF, try this code instead:&nbsp;Sub Macro2()
ChDir "C:\Users\&lt;UserName&gt;\Desktop"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Name, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub&nbsp;&nbsp;Regards

Forum Discussion

Continuous printing with Macros possible?

9 Replies

Resources