Adobe 26001360 Scripting Guide - Page 425
Dim jobOpts As New Illustrator.PrintJobOptions
UPC - 718659321840
View all Adobe 26001360 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 425 highlights
Adobe Illustrator CS Scripting Guide 425 ' with the combined PrintOptions object. ' Dim appRef As New Illustrator.Application Dim docRef As Illustrator.Document Set docRef = appRef.Documents.Add() Dim symbolRef As Illustrator.Symbol Dim itemRef As Illustrator.SymbolItem Dim y As Integer dim i as Integer y = docRef.Height - 30 i = 1 Do While (i < 11) Set symbolRef = docRef.Symbols(i) Set itemRef = docRef.SymbolItems.Add(symbolRef) itemRef.Top = y itemRef.Left = 100 y = (y - (itemRef.Height + 10)) i = i + 1 Loop appRef.Redraw ' create multiple options and assign to PrintOptions object Dim printOpts As New Illustrator.printOptions Dim colorOpts As New Illustrator.PrintColorManagementOptions colorOpts.Name = "ColorMatch RGB" colorOpts.Intent = aiSaturationIntent printOpts.ColorManagementOptions = colorOpts Dim jobOpts As New Illustrator.PrintJobOptions jobOpts.Designation = aiAllLayers jobOpts.ReversePages = True printOpts.JobOptions = jobOpts Dim coordinateOpts As New Illustrator.PrintCoordinateOptions coordinateOpts.FitToPage = True printOpts.coordinateOptions = coordinateOpts Dim flattenerOpts As New Illustrator.PrintFlattenerOptions flattenerOpts.ClipComplexRegions = True flattenerOpts.GradientResolution = 60 flattenerOpts.RasterizationResolution = 60 printOpts.FlattenerOptions = flattenerOpts docRef.PrintOut printerOpts 12 Aug 03