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

[Attachment(s) from Cecep W included below]

Dear Pakar Access semua
saat ini 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

__,_._,___