F
Filips Benoit
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"
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"