Sub Test() With ActiveDocument.PrintSettings .UsePPD = True .PPDFile = "C:\WINNT4\system32\spool\drivers\w32x86\HPLJ5P_1.PPD" End With ActiveDocument.PrintOutEnd Sub