Option Explicit
Sub PDF_Sheets()
Dim wsEachSheet As Worksheet
For Each wsEachSheet In ThisWorkbook.Worksheets
Call Create_PDF(wsEachSheet)
Next wsEachSheet
End Sub
Sub Create_PDF(wsPrint_Sheet As Worksheet)
Dim tempPSFileName As String
Dim PDFCreator
Dim FSO
tempPSFileName = "C:\UK\abc\def\" & " " & wsPrint_Sheet.Name & ".ps"
wsPrint_Sheet.PrintOut Copies:=1, preview:=False, ActivePrinter:="PDFCreator", printtofile:=True, Collate:=True, prtofilename:=tempPSFileName
Set FSO = CreateObject("Scripting.FileSystemObject")
Set PDFCreator = CreateObject("PDFCreator.clsPDFCreator")
PDFCreator.cStart "/NoProcessingAtStartup"
PDFCreator.cConvertPostscriptfile tempPSFileName, FSO.GetParentFolderName(tempPSFileName) & "" & FSO.GetBaseName(tempPSFileName) & ".pdf"
Kill tempPSFileName
End Sub
Bookmarks