Adobe 27510753 Scripting Guide - Page 176
If Err.Number <> 0 Then, If .Trapping = idTrapping.idAdobeInRIP Then
UPC - 718659445294
View all Adobe 27510753 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 176 highlights
168 Working with Documents in VBScript Adobe InDesign CS2 Scripting Guide Rem idTrapping.idAdobeInRIP. If .Trapping = idTrapping.idAdobeInRIP Then .PrintBlack = True .PrintCyan = True .PrintMagenta = True .PrintYellow = True End If Rem Only change the ink angle and frequency when you want to override the Rem screening set by the screening specified by the screening property. Rem .BlackAngle = 45 Rem .BlackFrequency = 175 Rem .CyanAngle = 15 Rem .CyanFrequency = 175 Rem .MagentaAngle = 75 Rem .MagentaFreqency = 175 Rem .YellowAngle = 0 Rem .YellowFrequency = 175 Rem The following properties are not needed (because colorOutput is set to separations). Rem .CompositeAngle = 45 Rem .CompositeFrequency = 175 Rem .SimulateOverprint = false Rem Rem Properties corresponding to the controls in the Graphics panel of the Print dialog. Rem SendImageData = idImageDataTypes.idAllImageData .FontDownloading = idFontDownloading.idComplete Err.Clear On Error Resume Next .DownloadPPDFonts = True .DataFormat = idDataFormat.idBinary .PostScriptLevel = idPostScriptLevels.idLevel3 If Err.Number 0 Then Err.Clear End If On Error GoTo 0 Rem Rem Properties corresponding to the controls in the Color Management panel of the Print dialog. Rem Rem If the UseColorManagement property of myInDesign.ColorSettings is false, Rem attempting to set the following properties will return an error. Err.Clear On Error Resume Next .SourceSpace = SourceSpaces.useDocument .Intent = RenderingIntent.useColorSettings .CRD = ColorRenderingDictionary.useDocument .Profile = Profile.postscriptCMS If Err.Number 0 Then Err.Clear End If On Error GoTo 0 Rem Rem Properties corresponding to the controls in the Advanced panel of the Print dialog. Rem OPIImageReplacement = False .OmitBitmaps = False .OmitEPS = False .OmitPDF = False Rem The following line assumes that you have a flattener preset named "high quality flattener". Err.Clear On Error Resume Next .FlattenerPresetName = "high quality flattener" If Err.Number 0 Then Err.Clear End If On Error GoTo 0 .IgnoreSpreadOverrides = False End With