WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Printing Information

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Acrodist pdf printing.wbt

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