Print Every 2 Pages to a New PDF

Twollaston

Board Regular
Joined
May 24, 2019
Messages
241
I have a few workbooks with almost 50 pages each, and I want to print every 2 pages to a PDF, so basically the end goal would be 25 pdfs made up of 2 worksheets each

For Example:
PDF1 Sheet1 and Sheet2 (sheet1 would be PDF1 page 1 and sheet2 would be PDF1 page 2)
PDF2 Sheet3 and Sheet4
PDF3 Sheet5 and Sheet6

And I was Hoping to Name the page based on Cells L5 and L3 like this =L5&" - "&L3 from the first page of each excel sheet
so PDF1 Name would be Worksheets(1) cells L5&" - "&L3(these cells are are filled with a name, and the type of report so it would look something like John Doe - Sales Report as the pdf name)

I was trying to do this with a loop to speed up time. Anybody know how to do this?
The saving path is not important, it can just go to my documents
 

Excel Facts

Select a hidden cell
Somehide hide payroll data in column G? Press F5. Type G1. Enter. Look in formula bar while you arrow down through G.
Try this

Code:
Sub Print_Every_2_Pages()
    Dim i As Long, wFile As String
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count Step 2
        wFile = Sheets(i).Range("L5").Value & " - " & Sheets(i).Range("L3").Value
        Sheets(Array(Sheets(i).Name, Sheets(i + 1).Name)).Copy
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & wFile & ".pdf"
        ActiveWorkbook.Close False
    Next
    msgbos "End"
End Sub
 
Upvote 0

Forum statistics

Threads
1,213,551
Messages
6,114,267
Members
448,558
Latest member
aivin

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top