Posted: 16 Dec 2005 14:12Posted: 16 Dec 2005 15:52| 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 |
Posted: 18 Dec 2005 07:24
output generated using printer-friendly topic mod. All times are GMT + 4 Hours