For exapmle: Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") WshShell.Run "rundll32 printui.dll,PrintUIEntry /if /b " & """" & "LaserJet6L" & """" & " /f %windir%\inf\ntprint.inf /r " & """" & "lpt1:" & """" & " /m " & """" & "HP LaserJet 6L" & """", 2, true WshShell.Run "rundll32 printui.dll,PrintUIEntry /y /n " & """" & "LaserJet6L" & """", 2, true