| View previous topic :: View next topic |
| Author |
Message |
Яков
Joined: 04 Mar 2002
Posts: 618
Location: Яков
Occupation: Экстремальная терапия бизнеса
Interests: Владивосток
|
 Posted: 16 Dec 2005 14:12 Post subject: Снятие Z отчета ШТРИХ-ФРК |
 |
|
Стоит компьютер с WinXP
К нему подключен ШТРИХ-ФРК
Из совсем другой программы печатаются чеки.
В той программе нет снятие Z отчета
Сейчас Z отчет снимают через программу "Драйвер ФР", поставляемую с ШТРИХ-ФРК
Такой вариант не устраивает клиента в виду необходимости "облегчить" и "ограничить".
Задача: На рабочем столе компьютера должен быть ярлык, при нажатии на который выдавался бы Z отчет
Вопрос: КА |
|
| Back to top |
|
 |
shura_k
Joined: 10 Oct 2003
Posts: 342
Location: Александр
Occupation: Специалист
Interests: Калининград
|
| Posted: 16 Dec 2005 15:52 Post subject: |
|
|
| 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
|
Сохраняете в файл и даёте ему расширение vbs. |
|
| Back to top |
|
|
Яков
Joined: 04 Mar 2002
Posts: 618
Location: Яков
Occupation: Экстремальная терапия бизнеса
Interests: Владивосток
|
| Posted: 18 Dec 2005 07:24 Post subject: |
|
|
Большое спасибо.
Всё замечательно заработало. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
