kalau saya sih pake txt seperti contoh dibawah:
Dim LocTextFile As String
' LocTextFile = "C:\POS\report.txt"
Open "c:\pos-mei\report.txt" For Output As #1
Print #1, "PLG: " & Text12.Text
Print #1, ""
Data2.Recordset.MoveFirst
While Not Data2.Recordset.EOF
Print #1, Data2.Recordset!Nama
Print #1, Data2.Recordset!Kuantitas; Tab(5);
Data2.Recordset!Satuan; Tab(13); "Rp." & Data2.Recordset!Harga; Tab(22);
"Rp." & Data2.Recordset!Total; Tab(32); "Rp." &
Data2.Recordset!Discount; Tab(41); vbCrLf
Data2.Recordset.MoveNext
Wend
Print #1, "TOTAL DISCOUNT: Rp. " & Label34.Caption
Print #1, "GRAND TOTAL: Rp. " & Label28.Caption
Print #1, vbCrLf
Print #1, "TERIMA KASIH - " & Format(Now, "dd-mm-yyyy") & " - " &
Format(Now, "hh:mm:ss")
Print #1, vbCrLf
Print #1, vbCrLf
Print #1, vbCrLf
Close #1
Open "c:\pos\report.bat" For Output As #1
Print #1, "type c:\pos\report.txt > LPT1"
Print #1, "exit"
Close #1
Shell "c:\pos\report.bat"
From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of sunardi_kss
Sent: 25 Juli 2008 09:43
To: [email protected]
Subject: [indoprog-vb] Cetak kertas Roll pada LX-300
saya coba cetak struk pake kertas roll dng cr tidak mau berhenti.
tolong donk kasih info kesaya bagaimana caranya bisa cetak dengan
menggunakan kertas roll sesuai dengan akhir transaksi (seperti di
indomart gitu).
terima kasih
[Non-text portions of this message have been removed]
