Print Every 2 Pages to a New PDF
Results 1 to 4 of 4

Thread: Print Every 2 Pages to a New PDF

  1. #1
    Board Regular
    Join Date
    May 2019
    Posts
    211
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    Default Print Every 2 Pages to a New PDF

    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

  2. #2
    Board Regular DanteAmor's Avatar
    Join Date
    Dec 2018
    Location
    México
    Posts
    5,245
    Post Thanks / Like
    Mentioned
    49 Post(s)
    Tagged
    14 Thread(s)

    Default Re: Print Every 2 Pages to a New PDF

    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
    Regards Dante Amor

  3. #3
    Board Regular
    Join Date
    May 2019
    Posts
    211
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Print Every 2 Pages to a New PDF

    Quote Originally Posted by DanteAmor View Post
    Try this
    Perfect! Thanks a lot for making that macro and sharing it with me. You are the man!

    I appreciate your help

  4. #4
    Board Regular DanteAmor's Avatar
    Join Date
    Dec 2018
    Location
    México
    Posts
    5,245
    Post Thanks / Like
    Mentioned
    49 Post(s)
    Tagged
    14 Thread(s)

    Default Re: Print Every 2 Pages to a New PDF

    Quote Originally Posted by Twollaston View Post
    Perfect! Thanks a lot for making that macro and sharing it with me. You are the man!

    I appreciate your help

    I'm glad to help you. Thanks for the feedback.
    Regards Dante Amor

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •