/* */
Showing posts with label Printing. Show all posts
Showing posts with label Printing. Show all posts

Thursday, October 14, 2010

[belajar-access] Re: Print Kertas Roll

ok.tq petunjuknya
--- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@...> wrote:
>
> sama saja,
> coba printer usb itu dishare, lalu nama sharenya di pakai untuk ditembak
> sama lpt1.
>
> aksan kurdin
>
> On 10/11/2010 2:17 PM, rahmat wrote:
> >
> > kalau printernya Printer USB bisa gak ya??
> >
> > --- In belajar-access@yahoogroups.com
> > <mailto:belajar-access%40yahoogroups.com>, Aksan Kurdin
> > <aksan.kurdin@> wrote:
> > >
> > > untuk print lpt1 ke jaringan, maka lpt1-nya ditembakkan ke printer
> > > share tersebut:
> > >
> > > net use lpt1 \\<nama_pc>\<nama_share_printer>
> > >
> > > dan untuk menghapus routing lpt1 kembali ke port local:
> > >
> > > net use lpt1 /delete
> > >
> > >
> > > jalankannya bisa lewat command prompt, atau perintah shell :
> > > cmd/c net use .....
> > >
> > >
> > > aksan kurdin
> > >
> > > On 10/8/2010 3:39 PM, Cecep W wrote:
> > > > 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@>
> > > > To: belajar-access@yahoogroups.com
> > <mailto:belajar-access%40yahoogroups.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
> > > >
> > > >
> > > >
> > > >
> > >
> >
> >
>


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

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/

Monday, October 11, 2010

Re: [belajar-access] Re: Print Kertas Roll



kali ini anda harus perdalam rdbms-nya, kang cecep.
desain database dan desain tampilan.
sepertinya yang anda ingin cetak adalah transaksi customer, jadi yang bermain di query cukup header dan detail dari tabel transaksi, dengan customer sebagai lookup pelengkap data saja. pasang kriteria query ke text box form yang sedang di tunjuk sekarang.

aksan kurdin



On 10/11/2010 11:50 AM, Cecep W wrote:
 

Alhamdulillah sudah berhasil mas.....
masalahnya sekarang adalah semua yg ada di QTransaksiDetail ke print semua.
Bagaimana supaya nge-print hanya transaksi yg terbaru saja?
Bagaimana memberikan Nomor pada Nama Item-nya?

Berikut saya lampirkan kembali file-nya.

Regars
CW
 

Pada 8 Oktober 2010 15.58, Aksan Kurdin <aksan.kurdin@gmail.com> menulis:
 untuk print lpt1 ke jaringan, maka lpt1-nya ditembakkan ke printer
share tersebut:

net use lpt1 \\<nama_pc>\<nama_share_printer>

dan untuk menghapus routing lpt1 kembali ke port local:

net use lpt1 /delete


jalankannya bisa lewat command prompt, atau perintah shell :
cmd/c net use .....


aksan kurdin

On 10/8/2010 3:39 PM, Cecep W wrote:
> 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
>
>
>
>



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

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/





__._,_.___


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

__,_._,___

Re: [belajar-access] Re: Print Kertas Roll



sama saja,
coba printer usb itu dishare, lalu nama sharenya di pakai untuk ditembak sama lpt1.

aksan kurdin

On 10/11/2010 2:17 PM, rahmat wrote:
 

kalau printernya Printer USB bisa gak ya??

--- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@...> wrote:
>
> untuk print lpt1 ke jaringan, maka lpt1-nya ditembakkan ke printer
> share tersebut:
>
> net use lpt1 \\<nama_pc>\<nama_share_printer>
>
> dan untuk menghapus routing lpt1 kembali ke port local:
>
> net use lpt1 /delete
>
>
> jalankannya bisa lewat command prompt, atau perintah shell :
> cmd/c net use .....
>
>
> aksan kurdin
>
> On 10/8/2010 3:39 PM, Cecep W wrote:
> > 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@...>
> > 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
> >
> >
> >
> >
>




__._,_.___


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

__,_._,___

[belajar-access] Re: Print Kertas Roll

kalau printernya Printer USB bisa gak ya??


--- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@...> wrote:
>
> untuk print lpt1 ke jaringan, maka lpt1-nya ditembakkan ke printer
> share tersebut:
>
> net use lpt1 \\<nama_pc>\<nama_share_printer>
>
> dan untuk menghapus routing lpt1 kembali ke port local:
>
> net use lpt1 /delete
>
>
> jalankannya bisa lewat command prompt, atau perintah shell :
> cmd/c net use .....
>
>
> aksan kurdin
>
> On 10/8/2010 3:39 PM, Cecep W wrote:
> > 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@...>
> > 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
> >
> >
> >
> >
>


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

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/

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

[Attachment(s) from Cecep W included below]

Alhamdulillah sudah berhasil mas.....
masalahnya sekarang adalah semua yg ada di QTransaksiDetail ke print semua.
Bagaimana supaya nge-print hanya transaksi yg terbaru saja?
Bagaimana memberikan Nomor pada Nama Item-nya?

Berikut saya lampirkan kembali file-nya.

Regars
CW
 

Pada 8 Oktober 2010 15.58, Aksan Kurdin <aksan.kurdin@gmail.com> menulis:
 untuk print lpt1 ke jaringan, maka lpt1-nya ditembakkan ke printer
share tersebut:

net use lpt1 \\<nama_pc>\<nama_share_printer>

dan untuk menghapus routing lpt1 kembali ke port local:

net use lpt1 /delete


jalankannya bisa lewat command prompt, atau perintah shell :
cmd/c net use .....


aksan kurdin

On 10/8/2010 3:39 PM, Cecep W wrote:
> 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
>
>
>
>



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

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/



Attachment(s) from Cecep W

1 of 1 File(s)


__._,_.___


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

__,_._,___

Friday, October 8, 2010

Re: [belajar-access] Re: Print Kertas Roll

untuk print lpt1 ke jaringan, maka lpt1-nya ditembakkan ke printer
share tersebut:

net use lpt1 \\<nama_pc>\<nama_share_printer>

dan untuk menghapus routing lpt1 kembali ke port local:

net use lpt1 /delete


jalankannya bisa lewat command prompt, atau perintah shell :
cmd/c net use .....


aksan kurdin

On 10/8/2010 3:39 PM, Cecep W wrote:
> 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
>
>
>
>

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

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/

[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/

Re: [belajar-access] Re: 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





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

Dengan mau memberikan kailnya saja saya sangat berterimakasih mas.
berikut yg saya tidak faham dengan yg ada "bla...bla...bla", harus diisi apa?
"dbOpenSnapshot" apa harus begitu ato diganti?
Bisa dijelaskan yg no 2? ini looping tapi saya tidak memahaminya.

1. Set rst = dbs.OpenRecordset("bla..bla..bla", dbOpenSnapshot)


2. Do While Not rst.EOF

regards
CW



Pada 8 Oktober 2010 10.07, aksankurdin <aksan.kurdin@gmail.com> menulis:
 

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 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

__,_._,___

Re: [belajar-access] Re: Print Kertas Roll



Dengan mau memberikan kailnya saja saya sangat berterimakasih mas.
berikut yg saya tidak faham dengan yg ada "bla...bla...bla", harus diisi apa?
"dbOpenSnapshot" apa harus begitu ato diganti?
Bisa dijelaskan yg no 2? ini looping tapi saya tidak memahaminya.

1. Set rst = dbs.OpenRecordset("bla..bla..bla", dbOpenSnapshot)

2. Do While Not rst.EOF

regards
CW



Pada 8 Oktober 2010 10.07, aksankurdin <aksan.kurdin@gmail.com> menulis:
 

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 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

__,_._,___

[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/

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

__,_._,___

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

__,_._,___

[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)


__._,_.___


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

__,_._,___

[belajar-access] Re: Print Error

Docmd.OpenReport"rptGudang, acNormal

ini hanya salah tulis ke milis, bukan ?
seharusnya:

Docmd.OpenReport "rptGudang", acNormal
(ada spasi, dan ada " penutup)

jika memang salah tulis, coba kita analisa dikit:
sepertinya crash karena rptGudang yang printnya adalah ke LAN. sebelum crash terjadi bisa gak kira2 di handle untuk error-nya, ya ?
coba pasang trap error:

private sub print
on error goto errHandle
docmd.openreport "rptjual",acnormal
docmd.openreport "rptgudang", acnormal
exit sub

errHandle:
stop
end sub

jika ternyata masih crash, jangan lupa backup dan lakukan compact/repair.
selanjutnya coba di mark untuk rptgudang, jalankan lagi.
kalau berhasil, mark rptjual dan unmark rptgudang, jalankan lagi.
jika berhasil kita print satu-satu, sekarang coba print dua2nya.
jika masih gagal, coba tambahkan perintah doevents di antara perintah openreport.

docmd.openreport "rptJual", acNormal
doevents
docmd.openreport "rptGudang", acNormal

jika masih gagal juga, coba tambahkan pula perintah sleep untuk memberi tenggat waktu perintah pertama beberapa saat sebelum perintah kedua dijalankan. sleep adalah api function.


aksan kurdin


--- In belajar-access@yahoogroups.com, jaman purba <gh2n@...> wrote:
>
> Barang kali teman2 ada yg pernah alami hal spt ini , saya buat command untuk print langsung ( tanpa preview )spt berikut :
>
> Private sub Print ()
>
> Docmd.OpenReport"rptJual", acNormal
> Docmd.OpenReport"rptGudang, acNormal
>
> end Sub
>
> dimana rptJual saya set default dg printer Matrix (mini printer) , sedangkan rptGudang diset default ( akses LAN ) ke printer Epson T20E.
> Mereka bisa ter-print dua-duanya tetapi setelah selesai print , tampil pesan error (terlampir) dan program otomatis tertutup.
> Bila saya gunakan command : acPreview ( di preview dahulu / tdk print langsung ) baru kemudian tekan ctrl+ P untuk print maka normal saja.
> kira2 apa penyebabnya ya ?
>
> Michael
>


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

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/

Wednesday, October 6, 2010

[belajar-access] Print Error [1 Attachment]

<*>[Attachment(s) from jaman purba included below]

Barang kali teman2 ada yg pernah alami hal spt ini , saya buat command untuk print langsung ( tanpa preview )spt berikut :

Private sub Print ()

Docmd.OpenReport"rptJual", acNormal
Docmd.OpenReport"rptGudang, acNormal

end Sub

dimana rptJual saya set default dg printer Matrix (mini printer) , sedangkan rptGudang diset default ( akses LAN ) ke printer Epson T20E.
Mereka bisa ter-print dua-duanya tetapi setelah selesai print , tampil pesan error (terlampir) dan program otomatis tertutup.
Bila saya gunakan command : acPreview ( di preview dahulu / tdk print langsung ) baru kemudian tekan ctrl+ P untuk print maka normal saja.
kira2 apa penyebabnya ya ?

Michael

<*>Attachment(s) from jaman purba:


<*> 1 of 1 File(s) http://groups.yahoo.com/group/belajar-access/attachments/folder/300828418/item/list
<*> Error

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

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/

Friday, October 1, 2010

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

[Attachment(s) from Cecep W included below]

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

Monday, September 6, 2010

[belajar-access] Re: Cetak Secara langsung ke Printer

----- Original Message -----
From: "jkssbma" <jkssbma@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, August 25, 2010 8:04 AM
Subject: [belajar-access] Re: Cetak Secara langsung ke Printer


>
> Ternyata dengan membaca buku VB6 dan membaca artikel di Byte.com , saya
baru mengetahui bahwa metode open dapat digunakan pula untuk mencetak
langsung ( dengan Port Paralel dan Serial , sedangkan USB belum didukung;
alasannya tehnologi .NET lebih cocok menangani port USB )
>
> Silakan saja download di [Files][jkssbma][cetakformat] dengan nama file
[cetakLPT.mdb].
>
> Bagi mereka yang lebih mahir dengan VB6 , tentu dapat dikembangkan
lagi.Saya harapkan untuk hasil modifikasinya di upload dengan nama tambahan
[cetakLPT_modif(x).mdb] . (x) angka desimal urutan modif, misal
[cetakLPT_modif1.mdb]
>
> Salam Sejahtera

Friday, May 14, 2010

[belajar-access] Report Print Quality

----- Original Message -----
From: "Maulana" <maulana_pup@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Saturday, May 15, 2010 10:17 AM
Subject: Re: [belajar-access] Report Print Quality


trims Bank Aksan, ngefek tuh...
salam
----- Original Message -----
From: Aksan Kurdin
To: belajar-access@yahoogroups.com
Sent: Friday, May 14, 2010 5:49 PM
Subject: Re: [belajar-access] Report Print Quality

copas dari http://bytes.com/topic/access/answers/641738-catalog-program:

DoCmd.OpenReport "<your report here>", acViewDesign
Reports!rptEmployees.Printer.PrintQuality = acPRPQHigh
DoCmd.OpenReport "<your report here>", acViewPreview, , , acWindowNormal


bagaimana ? ngefek ?

aksan kurdin