Acrobat Distiller: start if not running
 

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"

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"

Acrobat Distiller: start if not running
 

If you are using the distiller print driver, you shouldn't have to worry
about it.

--
Regards,
Tom Ogilvy


"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"