Re: [belajar-access] Print Kertas Roll

Menerapkannya mudah saja, fungsi seperti ini tinggal di taruh di event click suatu command prompt, tentu saja dengan modifikasi sesuai kebutuhan.
Tapi sebelumnya, biar tidak kopi paste saja, kang cecep paham kan dengan maksud setiap baris perintah di kode tersebut ?


aksan kurdin


On 10/8/2010 8:17 AM, Cecep W wrote:

 

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

__._,_.___

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

__,_._,___