document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Dim objPrinter As Variant
  2.  
  3. Set objPrinter = CreateObject("Pdfcreator.clspdfcreator")
  4.  
  5. With objPrinter
  6.     .cStart "/NoProcessingAtStartup"
  7.     .cOption("UseAutosave") = 1
  8.     .cOption("UseAutosaveDirectory") = 1
  9.     .cOption("AutosaveDirectory") = workDir
  10.     .cOption("AutosaveFilename") = Strleft( tempFileName , "." )
  11.     .cOption("AutosaveFormat") = 0    \' 0 = PDF
  12.     .cOption("PDFDisallowCopy") = 1
  13.     .cOption("PDFDisallowModifyContents") = 1
  14.     .cOption("PDFDisallowPrinting") = 1
  15.     .cPrinterstop =  False
  16. End With
');