Object Model Reference : Classes : P : PrintSeparations : Properties : PrintSeparations.AutoSpreading
|
|
| Object Model Reference : Classes : P : PrintSeparations : Properties : PrintSeparations.AutoSpreading |
Property AutoSpreading As Boolean
Member of PrintSeparations
The AutoSpreading property determines whether auto-spreading is enabled.
The following VBA example iterates through the SystemPrinters collection until it finds the specified printer. In a new document, it creates five shapes. It then enables separations and auto-spreading. The Print dialog box is then displayed.
Sub Test() |
Dim doc As Document |
Dim s As Shape |
Dim prn As Printer |
Dim intCounter As Integer |
For intCounter = 1 To Printers.Count |
Set prn = Printers.Item(intCounter) |
If prn.Name = "Device Independent PostScript File" Then |
Exit For |
End If |
Next intCounter |
Set doc = CreateDocument |
With doc |
Set s = .ActiveLayer.CreateEllipse(0.592362, 10.426614, 7.534409, 7.366142, 90#, 90#, False) |
s.Fill.UniformColor.CMYKAssign 0, 0, 100, 0 |
s.Outline.Type = cdrNoOutline |
Set s = .ActiveLayer.CreateArtisticText(1.25, 8.85, "This is a test of text") |
s.Text.FontProperties.Size = 48 |
Set s = .ActiveLayer.CreateRectangle(1.712047, 6.321102, 5.668268, 4.654016, 0, 0, 0, 0) |
s.Fill.UniformColor.CMYKAssign 0, 100, 0, 0 |
s.Outline.Type = cdrNoOutline |
s.Fill.UniformColor.CMYKAssign 0, 0, 100, 0 |
Set s = .ActiveLayer.CreateRectangle(3.926535, 5.599528, 7.335354, 3.459685, 0, 0, 0, 0) |
s.Fill.UniformColor.CMYKAssign 0, 100, 0, 0 |
s.Outline.Type = cdrNoOutline |
Set s = .ActiveLayer.CreateRectangle(0.642126, 5.276063, 5.071102, 2.215591, 0, 0, 0, 0) |
s.Fill.UniformColor.CMYKAssign 100, 100, 0, 0 |
s.Outline.Type = cdrNoOutline |
With .PrintSettings |
Set .Printer = prn |
With .Separations |
.Enabled = True |
.AutoSpreadAmount = 3527.77778 |
.AutoSpreading = True |
.AutoSpreadTextAbove = 254000 |
End With |
.ShowDialog |
End With |
End With |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.