PDFCreate Setting Demo

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