Code: |
Dim Sht, res
Dim IberF, ErrStr Set Sht = CreateObject ("AddIn.DrvFR") Sht.Password=30 Sht.Connect If Sht.ResultCode <> 0 Then ErrStr=Sht.ResultCode&" "&Sht.ResultCodeDescription ' MsgBox(Sht.ResultCode&" "&Sht.ResultCodeDescription) Wscript.Quit End If Sht.Beep 'Sht.PrintReportWithoutCleaning Sht.PrintReportWithCleaning If Sht.ResultCode <> 0 Then ErrStr=Sht.ResultCode&" "&Sht.ResultCodeDescription ' MsgBox(Sht.ResultCode&" "&Sht.ResultCodeDescription) Sht.Disconnect Wscript.Quit End If Sht.Disconnect |
output generated using printer-friendly topic mod. All times are GMT + 4 Hours