berikut ini salah satu cara buat buka cash drawer pake VB 6 (...di tempat saya pake printer Epson TM Series )

Sub BukaDrawer()
On Error Resume Next
Open "LPT1" For Output As #1
Print #1, Chr$(27); Chr$(112); Chr$(0)
Close #1
End Sub

atau bisa juga tanpa kode caranya :
Control Panel -> Printer and Faxes kemudian pilih properties dari printer yang terhubung dengan cash drawer.
Di properties printer tersebut pilih printing preferences -> Operation .

Lalu anda bisa memilih apakah ingin cash drawer terbuka pada saat awal print dokumen atau saat selesai print dokumen.


Jika ingin terbuka pada saat awal dokumen di print maka pilih tombol start of document, kemudian centang pilihan Send Command, lalu pilihan open drawer dipilih open cash drawer .

[My-Blog's]