[belajar-access] Print Kertas Roll [1 Attachment]

[Attachment(s) from Cecep W included below]

Dear Pakar Access semua
saat saya sedang belajar membuat program kasir,
ada satu masalah yg belum saya fahami yaitu masalah print langsung ke kertas roll, sebenarnya saya sudah nemu codingnya di milis ini namun saya masih bingung menerapkanya.
Coding-nya sbb:
Function PrintLangsung()
Dim dbs As Database
Dim rst As Recordset
Dim NoTrans As String

'buka dulu tabel-tabel yg berhubungan dengan form Kasir
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("bla..bla..bla", dbOpenSnapshot)

With rst
NoTrans = rst!NoTransaksi

'kemudian lain-lainnya sama, yaitu buka dulu LPT1nya
Open "LPT1" For Output As #1
Print #1, " XXX SWALAYAN "
Print #1, NoTrans & " " & Date & Time
'ini untuk detail transaksinya
.MoveFirst
Do While Not rst.EOF
Print #1, rst!NamaBarang
Print #1, rst!Quantity & "x " &
Format(rst!HargaJual,"#,###") & " " & Format(rst!
Total, "#,###")
.MoveNext
Loop
'dst dst dst
sudilah kiranya mengajarkan bagaimana penerapannya.
berikut saya lampirkan contoh file-nya.

Saya memakai printer Epson LQ-2180

Regards
CW

Attachment(s) from Cecep W

1 of 1 File(s)

Kasir.zip

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___