drukarka fiskalna posnet
jacek
Walcze z drukarką fiskalną posnet thermal 2.02. Wykoorzystuje dll:
"ThermalServiceLibrary.dll" oraz korzystam z przykładu :
Grzegorza Danowskiego
"http://www.gdnkonsulting.waw.pl/index_pliki/PosnetVba.htm"
Wykorzustuje procedury tam stworzone w następującej kolejności:
1
Sub otworz_port()
OpenD
End Sub
2
Sub otworz_przekazywanie()
OpenReceipt
End Sub
3.
Sub przekaz_dane()
Call ReceiptItem("name", "text rate", 22.2, 3, "A", 6.66, 0, 0)
End Sub
Wywala mi ciągle: bład interfejsu w pkt 3
Mam pytanie prośbę: czy ktoś korzystał z powyższego przykładu i czy go
implementował do swoich baz.Proszę o odpowiedź.
Jacek
--
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl
Grzegorz Danowski
news:28f9.000000...@newsgate.onet.pl...
> Witam grupę:
> Walcze z drukarką fiskalną posnet thermal 2.02. Wykoorzystuje dll:
> "ThermalServiceLibrary.dll" oraz korzystam z przykładu :
> Grzegorza Danowskiego
> "http://www.gdnkonsulting.waw.pl/index_pliki/PosnetVba.htm"
> Wykorzustuje procedury tam stworzone w następującej kolejności:
>
> Wywala mi ciągle: bład interfejsu w pkt 3
>
> Mam pytanie prośbę: czy ktoś korzystał z powyższego przykładu i czy go
> implementował do swoich baz.Proszę o odpowiedź.
Chętnie bym Ci pomógł, ale od dawna już nie dysponuję drukarką :-(, jest co
prawda dostępny emulator drukarki (http://pk.inet.pl/dfemul.htm) ale nie
wiem na ile poprawnie on działa.
Poza tym może warto spróbować użyć kontrolki ActiveX:
http://www.posnet.com/synerway/cms/images/upload/Install_ThLib003.exe?
Powinna być ona strawniejsza w obsłudze niż biblioteka dll, która była
trudna do wykorzystania w VB.
Pozdrawiam
Grzegorz
jacek
Chciałbym tego ocx zastosować ale wstawiłem go do formularza accessa
i co dalej jak wywołać jego funkcje. Pomijam fakt że kliknięcie
dwukrotne wywołuje błąd:
ms visual++ debug library
debug assertion failed:
program msaccess.exe
file:ctlcore.cpp
line 1077
A wizualnie wstawienie tego ocx wygląda jak wstawienie figury geometrycznej
typu romb
Grzegorz Danowski
> Dzieki serdeczne za pomoc.
> Chciałbym tego ocx zastosować ale wstawiłem go do formularza accessa
>
> i co dalej jak wywołać jego funkcje. Pomijam fakt że kliknięcie
>
> dwukrotne wywołuje błąd:
> ms visual++ debug library
> debug assertion failed:
> program msaccess.exe
> file:ctlcore.cpp
> line 1077
> A wizualnie wstawienie tego ocx wygląda jak wstawienie figury
> geometrycznej
> typu romb
Nie przejmuj się tym rombem :-). Podłącz referencję do tejże biblioteki (jak
wstawiłeś romba, to już je masz podłączone) i potem:
Sub Test()
Dim thermal As New ThermalLib
thermal.THLOpenPort "Com4"
thermal.THLSendBel 'muzyczka
'nagłówek
thermal.LBTRSHDR 0, 0, "Ala ma kota", "", ""
'2 linie z towarami
thermal.LBTRSLN 1, 1, 1, "Mleko", "2", "A", "10.5", "21", "0", ""
thermal.LBTRSLN 1, 1, 1, "Chleb", "10", "A", "1.49", "14.9", "0", ""
'podsumowanie
thermal.LBTRXEND1 1, 1, 1, "0", "35.9", "40", "4.1", "", ""
thermal.THLClosePort
End Sub
Testowałem tylko na tym emulatorze, do którego wcześniej podawałem linka,
stąd nie wiem jak będzie działać w przypadku prawdziwej drukarki.
Pozdrawiam
Grzegorz
Ps. Opis poszczególnych instrukcji znajdziesz w dokumentacji drukarki.
jacek
Po wydrukowaniu , nie chce drukarka wydrukować kolejnego. Prubuje wyciągnąc
kabel łączący z komputerem oraz wyłączac drukarkę. Czasami skutkuje.
Prubowałem z funkcją:
'Czyści bufor wejściowy otwartego portu.
thermal.THLCleanComBu
oraz wstawiłem :
'Zakończenie transakcji
thermal.LBTREXIT 0, 0, 0, "kod", "", "", "", "0", "50", "0"
bo wydaje mi się to konieczne.
ale bez skutku. Co może być powodem takiego zachowania drukarki?
Grzegorz Danowski
> Dzieki. Bardzo mi pomogłeś. Napotykam jednak kolejne problemy.
> Po wydrukowaniu , nie chce drukarka wydrukować kolejnego. Prubuje
> wyciągnąc
> kabel łączący z komputerem oraz wyłączac drukarkę. Czasami skutkuje.
> Prubowałem z funkcją:
> 'Czyści bufor wejściowy otwartego portu.
> thermal.THLCleanComBu
> oraz wstawiłem :
> 'Zakończenie transakcji
> thermal.LBTREXIT 0, 0, 0, "kod", "", "", "", "0", "50", "0"
> bo wydaje mi się to konieczne.
> ale bez skutku. Co może być powodem takiego zachowania drukarki?
Niestety musisz sam poszukać w dokumentacji. Dodatkowo otwórz stronę z
przykładami: ThermalLib\DOC\Strona_testowa003_ocx.htm (pozwól na
uruchamianie ActiveX) - możesz w niej prześledzić wydruk paragonów.
Pozdrawiam
Grzegorz
Grzegorz Danowski
news:emb7m5$4fd$1...@inews.gazeta.pl...
> Niestety musisz sam poszukać w dokumentacji. Dodatkowo otwórz stronę z
> przykładami: ThermalLib\DOC\Strona_testowa003_ocx.htm
Nie napisałem, że ta strona znajduje się w folderze, do którego
zainstalowałeś ocx-a Posnetu.
G.
jacek
Zycze Ci Wesołych Świat.
Pozdr, Jacek