Acrobat Distiller: start if not running
Filips,
Look into GetObject & CreateObject.
NickHK
"Filips Benoit" wrote in message
...
Dear All,
How to check if Acrobat Distiller is running and how to start it before
output?
Filip
'Save as
' If NOT IsRunning("Acrobat Distiller") then start
Acrobat
Distiller
strPath = FindOutputPath(InterfaceConn, PresentProjectId)
'set printer to print as POSTSCRIPT (PS-file in sub-folder 'IN')
'and the Acrobat-distiller will periodically convert these files
into pdf-files in sub-folder 'out'
xlApp.ActivePrinter = FindProjectPropertyValue(InterfaceConn,
PresentProjectId, "PDFWriter")
mysheet.PrintOut Copies:=1, Collate:=True, printtofile:=True,
prtofilename:=strPath & "\in\" & strSaveAsName & strOrdClientCode & ".ps"
|