Table of Contents
Advertisement
414
Example 60.1
' PrintColorSeparationOptions
'
' Create a new document and add some symbol items
' Create a PrintColorSeparationOptions object and
' print with various separation settings
'
' Create a new document and add some artwork
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 a separations object and assign it a
' PrintOptions object
Dim printOpts As New Illustrator.printOptions
Dim separationOpts As New Illustrator.PrintColorSeparationOptions
printOpts.ColorSeparationOptions = separationOpts
' Print with various separation options
separationOpts.ConvertSpotColors = True
separationOpts.OverPrintBlack = True
separationOpts.ColorSeparationMode = aiComposite
docRef.PrintOut printOpts
separationOpts.ColorSeparationMode = aiInRIPSeparation
docRef.PrintOut printOpts
separationOpts.ConvertSpotColors = False
separationOpts.OverPrintBlack = False
separationOpts.ColorSeparationMode = aiHostBasedSeparation
docRef.PrintOut printOpts
12 Aug 03
Visual Basic Reference
Advertisement
Table of Contents
