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 WithEnd Sub