Table of Contents
Advertisement
Adobe Illustrator CS Scripting Guide
' 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
425
Advertisement
Table of Contents
