Thread: Convert multiple sheets to multiple pdf files

I don't have XL'07, You can use the Macro recorder to Get the code to PDF in XL'07, then use a Worksheet Loop to PDF each Sheet.

For me it would look something like this.

   Sub PDFSheets()

    For Each ws In ActiveWorkbook.Worksheets
    
        ws.Select

        Application.ActivePrinter = "PDF reDirect v2 on Ne00:" ' this is the PDF printer I use
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
                                             "PDF reDirect v2 on Ne00:", Collate:=True

    Next ws
    
End Sub

Then I would have to Save Each PDF File