PrintSettings.Reset

Sub Reset()

The Reset method reverts to the default print style.

The following code example creates a new document containing four rectangles, each filled with a different uniform color. It then creates and saves a new print style. After reverting to the default print style, it prints the document. It then loads the saved print style and prints the document again.

Sub Test() 
 Dim doc As Document 
 Dim s As Shape 
 Set doc = CreateDocument 
 Set s = ActiveLayer.CreateRectangle(0.940709, 10.177795, 3.130315, 
8.411181, 0, 0, 0, 0) 
 s.Fill.UniformColor.CMYKAssign 0, 0, 0, 100 
 s.Outline.Type = cdrNoOutline 
 Set s = ActiveLayer.CreateRectangle(1.139764, 5.201417, 3.553307, 
3.111339, 0, 0, 0, 0) 
 s.Fill.UniformColor.CMYKAssign 0, 0, 100, 0 
 s.Outline.Type = cdrNoOutline 
 Set s = ActiveLayer.CreateRectangle(4.896929, 10.202677, 7.186063, 
8.510709, 0, 0, 0, 0) 
 s.Fill.UniformColor.CMYKAssign 0, 100, 0, 0 
 s.Outline.Type = cdrNoOutline 
 Set s = ActiveLayer.CreateRectangle(5.245276, 5.450236, 7.683701, 
3.285512, 0, 0, 0, 0) 
 s.Fill.UniformColor.CMYKAssign 100, 0, 0, 0 
 s.Outline.Type = cdrNoOutline 
 With doc 
  With .PrintSettings 
   .Separations.Enabled = True 
   .Copies = 5 
   .Save "c:\Seps.prs" 
   .Reset 
  End With 
  .PrintOut 
  With .PrintSettings 
   .Load "c:\Seps.prs" 
  End With 
  .PrintOut 
 End With 
End Sub