Dim Export As Excel.Workbook Set Export = oExcel.ActiveWorkbook Set pdfjob = New PDFCreator.clsPDFCreator With pdfjob If .cStart("/NoProcessingAtStartup") = False Then MsgBox "Can't initialize PDFCreator.", vbCritical + _ vbOKOnly, "PrtPDFCreator" Exit Sub End If .cOption("UseAutosave") = 1 .cOption("UseAutosaveDirectory") = 1 .cOption("AutosaveDirectory") = Export.Path & "" .cOption("AutosaveFilename") = Left(Export.Name, Len(Export.Name) - 4) & ".pdf" .cOption("AutosaveFormat") 0 ' 0 PDF .cClearCache End With ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator" Do Until pdfjob.cCountOfPrintjobs = 1 DoEvents Loop pdfjob.cPrinterStop = False Do Until pdfjob.cCountOfPrintjobs = 0 DoEvents Loop pdfjob.cClose Set pdfjob = Nothing