PrintSeparations.Resolution

Property Resolution As Long

The Resolution property returns or sets the resolution used for printing separations.

To use this property, the AdvancedSettings property must be set to True.

The following code example iterates through the SystemPrinters collection until it finds the specified printer. It then enables separations and sets advanced settings. The Print dialog box is then displayed.

Sub Test() 
 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 
 With ActiveDocument 
  With .PrintSettings 
   Set .Printer = prn 
   With .Separations 
    .Enabled = True 
    .AdvancedSettings = True 
    .ScreenTechnology = "RT Screening - Lino 330" 
    .Resolution = 1270 
    .BasicScreen = "109" 
   End With 
   .ShowDialog 
  End With 
 End With 
End Sub