Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: Acrodist pdf printing.wbt
setup="D:\Program Files\Adobe\Acrobat3\Distillr\ACRODIST.EXE" ErrorMode(@off) a=RunShell(setup,"","",@NORMAL,@NOWAIT) ErrorMode(@cancel) If a then title="Select Compatibility Option" child="" timeout=5 gosub waitturn If t then MouseClickBtn(title,"","Acrobat 3.0 Compatible") ErrorMode(@off) regkey = RegOpenKey(@REGCURRENT, "Software\Adobe\Acrobat\AcroDist\JobOptions") ErrorMode(@cancel) If regkey then RegSetValue(regkey, "[DefaultCompatibility]","3.0") RegSetValue(regkey, "[CompatibilityLevel]","3.0") RegSetValue(regkey, "[ASCII85EncodePages]","0") RegSetValue(regkey, "[PageSizeUnits]","0") RegSetValue(regkey, "[PageWidth]","612") RegSetValue(regkey, "[PageHeight]","792") RegSetValue(regkey, "[HWResolution]","600") RegSetValue(regkey, "[CompressPages]","1") RegSetValue(regkey, "[DownsampleColorImages]","0") RegSetValue(regkey, "[EncodeColorImages]","0") RegSetValue(regkey, "[AutoFilterColorImages]","1") RegSetValue(regkey, "[ColorImageResolution]","72") RegSetValue(regkey, "[ColorImageDownsampleType]","0") RegSetValue(regkey, "[ColorImageFilter]","6") RegSetValue(regkey, "[ColorAutoFilter]","4") RegSetValue(regkey, "[DownsampleGrayImages]","0") RegSetValue(regkey, "[EncodeGrayImages]","0") RegSetValue(regkey, "[AutoFilterGrayImages]","1") RegSetValue(regkey, "[GrayImageResolution]","72") RegSetValue(regkey, "[GrayImageDownsampleType]","0") RegSetValue(regkey, "[GrayImageFilter]","6") RegSetValue(regkey, "[GrayAutoFilter]","4") RegSetValue(regkey, "[DownsampleMonoImages]","0") RegSetValue(regkey, "[EncodeMonoImages]","1") RegSetValue(regkey, "[MonoImageResolution]","300") RegSetValue(regkey, "[MonoImageDownsampleType]","0") RegSetValue(regkey, "[MonoImageFilter]","2") RegSetValue(regkey, "[SubsetFonts]","1") RegSetValue(regkey, "[MaxSubsetPct]","35") RegSetValue(regkey, "[EmbedAllFonts]","0") RegSetValue(regkey, "[UserFontListLength]","0") RegSetValue(regkey, "[AlwaysIncludeLength]","0") RegSetValue(regkey, "[NeverIncludeLength]","0") RegSetValue(regkey, "[ProcessPrologueAndEpilogue]","0") RegSetValue(regkey, "[PreserveOPIComments]","0") RegSetValue(regkey, "[TransferFunctionInfo]","2") RegSetValue(regkey, "[UCRandBGInfo]","0") RegSetValue(regkey, "[PreserveOverprintSettings]","0") RegSetValue(regkey, "[PreserveHalftoneInfo]","0") RegSetValue(regkey, "[ColorConversionStrategy]","0") RegSetValue(regkey, "[ConvertCMYKImagesToRGB]","1") RegCloseKey(regkey) Endif title="Acrobat Distiller" ErrorMode(@off) WinClose(title) ErrorMode(@cancel) ErrorMode(@off) a=RunShell(setup,"","",@NORMAL,@NOWAIT) ErrorMode(@cancel) Endif Exit :waitturn t=WinWaitExist(title, timeout) IF child<>"" then c=WinWaitChild(title,child,timeout) return -------------------------------------------------------------------------------- Post New Topic | Reply to: "Automating PDF Printing"
Article ID: W14941
File Created: 2001:11:08:12:41:02
Last Updated: 2001:11:08:12:41:02