Dim objPrinter As Variant
Set objPrinter = CreateObject("Pdfcreator.clspdfcreator")
With objPrinter
.cStart "/NoProcessingAtStartup"
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = workDir
.cOption("AutosaveFilename") = Strleft( tempFileName , "." )
.cOption("AutosaveFormat") = 0 \' 0 = PDF
.cOption("PDFDisallowCopy") = 1
.cOption("PDFDisallowModifyContents") = 1
.cOption("PDFDisallowPrinting") = 1
.cPrinterstop = False
End With