$RC=setoption("NoVarsinstrings","on")
$RC=setoption("NoMacrosinstrings","on")

$System = CreateObject("Kixtart.System")

SelectPrinterForm()

Function SelectPrinterForm()
   $defprinter = Split(readvalue("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device"),",")[0]
   $objWMIService = GetObject("winmgmts:\\"+@WkSta+"\root\CIMV2")
   $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Printer", "WQL")
   $x=0
   for each $colitem in $colitems
      $x=$x+1
   next
   Global $printers[$x-1]
   $x=0
   for each $colitem in $colitems
      $printers[$x]=$colitem.Name
      $x=$x+1
   next
   $PrinterSelectGroupHeight = (UBound($printers)+1)*30+40
   $PrinterSelectFormHeight = (UBound($printers)+1)*30+170
   $PrinterSelectform = $System.Form()
   $PrinterSelectform.Width = 400
   $PrinterSelectform.Height = $PrinterSelectFormHeight
   $PrinterSelectform.Text = "Print"
   $PrinterSelectTabs = $PrinterSelectForm.Controls.Add("TabControl")
   $PrinterSelectTabs.Height = $PrinterSelectForm.Height-50
   $PrinterSelectTabs.Width = $PrinterSelectForm.Width-20
   $PrinterSelectTabs.Center()
   $PrinterSelectTab = $PrinterSelectTabs.TabPages.Add("General")
   $PrinterSelectGroup = $PrinterSelectTab.Controls.Add("GroupBox")
   $PrinterSelectGroup.Text = "Select Printer"
   $PrinterSelectGroup.Height = $PrinterSelectGroupHeight
   $PrinterSelectGroup.Width = $PrinterSelectTabs.Width-30
   $PrinterSelectGroup.Top = 10
   $PrinterSelectGroup.Left = 10
   $top = 0
   For $x=1 to UBound($printers)+1
      $null = Execute('$printer'+$x+'=$PrinterSelectGroup.Controls.Add("ToolButton")')
      $null = Execute('$printer'+$x+'.Text=$printers[$x-1]')
      $null = Execute('$printer'+$x+'.BackColor="TransParent"')
      $null = Execute('$printer'+$x+'.FlatStyle=0')
      $null = Execute('$printer'+$x+'.BorderStyle=0')
      $null = Execute('$printer'+$x+'.Width=300') 
      $null = Execute('$printer'+$x+'.Height=30')
      $null = Execute('$printer'+$x+'.Cursor=16')
      $null = Execute('$printer'+$x+'.Top=20+$top')
      $null = Execute('$top=$printer'+$x+'.Top+10')
      $null = Execute('$printer'+$x+'.Left=$PrinterSelectGroup.Left+20')
      $null = Execute('$printer'+$x+'.OnClick="SetSelectedPrinter($printer'+$x+')"')
      if $printers[$x-1]=$defprinter
         $null = Execute('$printer'+$x+'.Icon=@ScriptDir+"\printer_def.ico"')
         $null = Execute('$printer'+$x+'.BackColor="silver"')
         $null = Execute('$printer'+$x+'.Pushed=1')
         $null = Execute('$selectedprinter=$printer'+$x)
      else
         $null = Execute('$printer'+$x+'.Icon=@ScriptDir+"\printer.ico"')
      endif
   Next
   $printbutton = $PrinterSelectTab.Controls.Add("ToolButton")
   $printbutton.Text = "Print"
   $printbutton.Top = $PrinterSelectGroup.Bottom+10
   $printbutton.Left = $PrinterSelectGroup.Left+80
   $printbutton.OnClick = "PrintHoursReport()"
   $printCancelbutton = $PrinterSelectTab.Controls.Add("ToolButton")
   $printCancelbutton.Text = "Cancel"
   $printCancelbutton.Top = $PrinterSelectGroup.Bottom+10
   $printCancelbutton.Left = $PrinterSelectGroup.Right-80-$printCancelbutton.Width
   $printCancelbutton.OnClick = "$$PrinterSelectform.Hide()"
   $PrinterSelectform.Center()
   $PrinterSelectform.Show()
   While $PrinterSelectform.Visible
      $Nul = Execute($PrinterSelectform.DoEvents)
   Loop
   Exit 0
EndFunction

Function SetSelectedPrinter($p)
   For $x=1 to UBound($printers)+1
      $null = Execute('$printer'+$x+'.BackColor=""')
   Next
   $selectedprinter = $p
   $selectedPrinter.BackColor = "silver"
EndFunction

Function PrintHoursReport()
   $testfile = @ScriptDir+"\test-print-file.txt"
   if not exist($testfile)
      $testfh = FreeFileHandle()
      $null = Open($testfh,$testfile,5)
      $null = WriteLine($testfh,"This is simply a test of the print form.")
      $null = Close($testfh)
   endif
   $prntr = $selectedprinter.text
   $null = SetDefaultPrinter($prntr)
   Sleep 1
   $objShellApp = CreateObject("Shell.Application")
   $objShellApp.ShellExecute($testfile,"","","print",0)
   Sleep 1
   $null = SetDefaultPrinter($defprinter)
   $PrinterSelectform.Hide()
EndFunction

Function IEPrintDialog($printdoc,optional $dialog)
   if $dialog<>1
      $dialog=2
   endif
   $objIE = CreateObject("InternetExplorer.Application")
   if @error=0
      $objIE.Visible = 0
      $objIE.Navigate($printdoc)
      Do
         Sleep 0.1
      Until $objIE.ReadyState = 4
      if $objIE.QueryStatusWB(6) >= 3
         $objIE.ExecWB(6,$dialog,2,0)
;         Do
;            Sleep 0.1
;         Until $objIE.PrintTemplateTeardown(pDisp)=1
         sleep 5
         $objIE.Quit
      else
         $objIE.Quit
         exit 1
      endif
   else
      exit @Error
   endif
   exit 0
EndFunction

function IEPrint($document,optional $mode)
  dim $OLECMDID_PRINT, $OLECMDEXECOPT, $IE, $rc, $sc
  $OLECMDID_PRINT=6
  if $mode
    $OLECMDEXECOPT=1
  else
    $OLECMDEXECOPT=2
  endif
  if exist($document)
    $ie = createobject("internetexplorer.application")
    $ie.navigate ($document)
    While $IE.Busy and $IE.ReadyState <> 4 sleep 0.2 loop
    While $IE.Document.readystate <> "complete" Loop
    $IE.visible=0
    $sc = CreateObject("ScriptControl")
    $sc.language = "VBScript"
    $sc.timeout = 300000
    $sc.addobject('vbIE',$IE)
    $sc.addcode('vbIE.ExecWB ' + $OLECMDID_PRINT + ',' + $OLECMDEXECOPT + ',2,0')
    $sc.run
    $ie.quit
  else
    exit 2
  endif
endfunction

Function NotepadPrint($objDocument)
   $objDocument.InvokeVerb("Print")
EndFunction
;
Function Get_Doc_Obj($strFolder, $strDocument)
   Dim $objShell, $objFolder, $colItems, $objItem
   $objShell  = CreateObject("Shell.Application")
   $objFolder = $objShell.NameSpace($strFolder)
   $colItems  = $objFolder.Items
   ;
   For Each $objItem In $colItems
      If $objItem = $strDocument
         $Get_Doc_Obj = $objItem
         Return
      EndIf
   Next
EndFunction

Include "functions.kix"
Dim $strUser, $strFile, $rc, $strFolder, $objDocument
$strUser   = @USERID
$strFolder = "C:\Documents and Settings\" + $struser + "\Desktop\"
$strFile   = $strUser + "_info.ini"
;
$objDocument = Get_Doc_Obj($strFolder, $strFile)
$rc          = NotepadPrint($objDocument)

Set objIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
...rest of printing stuff here...
Do While Not blnPrintingComplete
   WScript.Sleep 50
Loop

Sub IE_PrintTemplateTeardown(pDisp)
   WScript.Sleep 200
   blnPrintingComplete = True
End Sub