[belajar-access] Re: Print Kertas Roll

bukannya gak mau, tapi saya mau kasih kailnya aja, bukan ikan.

ayo sama2 kita bongkar kodenya. coba bagian mana yang mengerti dan bagian mana yang tidak mengerti. kalau bisanya dari proses, bekasnya dalam, tapi kalau bisanya karena instan, cepat lupanya.

aksan kurdin

--- In belajar-access@yahoogroups.com, Cecep W <cepwahyu@...> wrote:
>
> 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@...> 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 PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/