MS ACCESS MAILING LIST: Re: [belajar-access] Re: Print Kertas Roll

Hallo bang OPI, lama gak kopdar jadi kangen... ternyata di komputer klien bisa bang dengan metode pertama spt saran bang Aksan Kurdin. sepertinya ada masalah di laptop saya. sekarang ijin download linknya bang OPI.

berikut metode yang pertama:

klik start > run ketik cmd klik ok

Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

Sebelum di set lihat dahulu pinter yang aktif, kemudian sharing printer epson lx-300 dengan nama printer3:

C:>NET VIEW \\NANDAAMI
Shared resources at \\NANDAAMI

NandaAmi

Share name Type   Used as Comment

-------------------------------------------------------------------------------
Printer     Print           Microsoft XPS Document Writer
Printer2    Print           Microsoft Office Document Image Writer
Printer3    Print           Epson LX-300+
SharedDocs Disk
The command completed successfully.

C:>NET USE LPT1 \\NANDAAMI\PRINTER3 /PERSISTENT:YES
The command completed successfully.

sesudah di set:
C:>NET VIEW \\NANDAAMI
Shared resources at \\NANDAAMI

NandaAmi

Share name Type   Used as Comment

-------------------------------------------------------------------------------
Printer     Print           Microsoft XPS Document Writer
Printer2    Print           Microsoft Office Document Image Writer
Printer3    Print LPT1     Epson LX-300+
SharedDocs Disk
The command completed successfully.

Thank you | Terima Kasih | Matur Suksema

Sumiyanto

http://cakyanto.wordpress.com/
http://mugi.or.id/blogs/sumiyanto/

From: Sofyan Efendi <sofyanefendi@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Sunday, 6 January 2013 8:25 PM
Subject: Re: [belajar-access] Re: Print Kertas Roll

Halo Mas Sumiyanto, capture LPT ke USB rata2 berbayar, tapi Alhamdulillah ada nih yg gratis, coba aja download di: http://www.softpedia.com/progDownload/DOSPrint-ANDTechnologies-Download-130859.html

Saya dulu pernah coba pakai software capture yg lain, lupa saya namanya, dan berhasil cetak ke USB (LX-300 USB) menggunakan kode semisal:

Public Function test()
Open "lpt1" For Output As #1
Print #1, "This is a test"    ' Print text to file.
Print #1,    ' Print blank line to file.
Print #1, "Zone 1"; Tab; "Zone 2"     ' Print in two print zones.
Print #1, "Hello"; " "; "World"      ' Separate strings with space.
Print #1, Spc(5); "5 leading spaces "     ' Print five leading spaces.
Print #1, Tab(10); "Hello"     ' Print word at column 10.
Print #1,    ' Print blank line to file.
Print #1,    ' Print blank line to file.
Print #1,    ' Print blank line to file.
Print #1,    ' Print blank line to file.
Print #1,    ' Print blank line to file.
Print #1,    ' Print blank line to file.
Print #1,    ' Print blank line to file.
Print #1,    ' Print blank line to file.
Print #1,    ' Print blank line to file.
Print #1,    ' Print blank line to file.
Print #1,    ' Print blank line to file.
Print #1,    ' Print blank line to file.
Print #1,    ' Print blank line to file.
Close #1
End Function

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi

----- Original Message -----

From: Sumiyanto Surabaya

To: belajar-access@yahoogroups.com

Sent: Sunday, January 06, 2013 9:13 PM

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

net use lpt1 \\yanto\epsonlx /persistent:yes

sudah betul bang. itu copy paste dari prompt command. tetapi hasilnya masih nihil. apakah ada solusi lain..

sambil besok saya cek lagi di pcnya, jika ada port paralel lpt1, terpaksa harus beli cable lpt1.

btw... Thank you | Terima Kasih | Matur Suksema

Sumiyanto

http://cakyanto.wordpress.com/
http://mugi.or.id/blogs/sumiyanto/

From: aksan kurdin <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Sunday, 6 January 2013 5:21 PM
Subject: Re: [belajar-access] Re: Print Kertas Roll

ganti file://yanto/epsonlx dengan \\yanto\epsonlx bagaimana cak ?

aksan kurdin
On 1/6/2013 7:23 AM, Sumiyanto Surabaya wrote:

C:\Documents and Settings\Yanto>net view file://yanto/
Shared resources at file://yanto/

Yanto

Share name    Type   Used as Comment

-------------------------------------------------------------------------------
AutoGest      Print           Auto Gestetner MPC2500/DSc525 RPCS on COM-3
EpsonLX       Print           Epson LX-300+
My Documents Disk
Printer       Print           Microsoft XPS Document Writer
Printer2      Print           Microsoft Office Document Image Writer
SALWA (D)     Disk
SharedDocs    Disk
The command completed successfully.

C:\Documents and Settings\Yanto>net use lpt1 file://yanto/epsonlx /persistent:yesSystem error 85 has occurred.

The local device name is already in use.

bang sudah saya tembakkan ke share printer file://yanto/epsonlx di local pc tetapi tetap print lpt1 to usb tidak bisa berjalan. mengingat program kasir menggunakan printer type epson lx-300+ dan mobo nya hanya ada soket usb. mohon pencerahannya...

Thank you | Terima Kasih | Matur Suksema

Sumiyanto

http://cakyanto.wordpress.com/
http://mugi.or.id/blogs/sumiyanto/

From: Aksan Kurdin mailto:aksan.kurdin@gmail.com
To: belajar-access@yahoogroups.com
Sent: Monday, 11 October 2010 3:46 PM
Subject: 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/