The following VBA example iterates through the
SystemPrinters collection until it finds the specified printer. It enables print separations and specifies 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