Jump to content

SergeyAV

Member
  • Posts

    3
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    Russian Federation

Posts posted by SergeyAV

  1. 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

×
×
  • Create New...