Re: [belajar-access] Print Kertas Roll

Nah itu dia masalahnya Mas...saya faham sebagian dan sebagian lagi tidak begitu faham...maklum saja tidak ada basic programmer, saya belajar VBA dari para master di milis ini dan alhamdulillah semakin hari semakin bertambah ilmunya. karena di Coding ini ada Bla..bla...bla-nya dan dst..dst saya tidak begitu faham harus diisi apa. kalo Mas Aksan Berkenan sudilah kiranyanya memandu langsung menerapkan coding ini di sampel Database yg saya lampirkan. Syukur2 bisa menjelaskan maksud dari setiap baris perintah itu. terus terang saya masih meraba-raba cara penerapan Looping.

Regards

CW

Pada 8 Oktober 2010 09.34, Aksan Kurdin <aksan.kurdin@gmail.com> menulis:

 

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

__,_._,___