[belajar-access] Re: Print Kertas Roll

Terimakasih banyak mas Aksan atas penjelasannya..
akan saya serap dulu ilmunya
sebagai tambahan informasi printer yg saya gunakan ada dijaringan, apa
yg harus saya ubah dari coding yg sudah ada itu?

Regards
CW

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Date: 8 Oktober 2010 14.12
Subject: Print Kertas Roll

>
> untuk penggunaan fungsi PrintLangsung, dibutuhkan penguasaan pada library DAO, dan open/read file (dalam hal ini file di arahkan ke port printer lpt1).
> kode yang anda tanyakan adalah penggunaan library DAO. Penjelasannya tidak singkat, tetapi anda bisa mempelajari-nya secara mendalam dari help access. cukup sorot saja misalnya di line
>
> set dbs = currentdb
>
> anda sorot currentdb, tekan f1, maka access akan membawa anda ke topik currentdb, lengkap dengan contoh penggunaannya. jawaban instan, dibanding jika menunggu dari milis. :)
>
> dbs dan recordset di sini berpasangan. dari file yang dikirimkan, anda hendak mengeprint qtransaksi, maka anda bisa buka query ini dalam recordset. pilihan snapshot, dynaset, dll bisa anda peroleh dari help access, lebih lengkap.
>
> dim dbs as dao.database
> set dbs = currentdb
>
> artinya kita siapkan satu variabel obyek database yang akan mewakili mdb yang sekarang kita pakai, yaitu dengan mengesetnya menunjuk ke currentdb.
>
> dim rs as dao.recordset
> set rs = dbs.openrecordset ("Qtransaksi",dbopensnapshot)
>
> artinya kita siapkan satu variabel bertipe obyek recordset, yang selanjutnya kita isi dengan record2 dari query Qtransaksi. sifatnya snapshot, read only dan tidak update.
>
> setelah rs berhasil di isi dengan record dari qtransaksi, maka untuk mengambil isinya baris per baris dilakukan dengan melakukan perulangan dari baris awal hingga baris akhir:
>
>
> do while not rs.eof
>     debug.print rs("tanggal_transaksi"), rs("nama_pelanggan"), rs("nama_barang")
>     rs.movenext
> loop
>
> perintah di atas dimaksudkan mulai membaca isi rs selama belum sampai ke end of file (eof). setiap pembacaan baris, langsung di tuliskan ke debug window. dan rs.movenext untuk memerintahkan rs berpindah ke baris berikutnya.
>
>
> aksan kurdin
> - Perlihatkan kutipan teks -
>
>

------------------------------------

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/