Ada trik lain, yaitu capture share printer ke local printer port
(lpt1) lewat command prompt, seperti berikut:
net use lpt1 \\NamaKomputer\NamaShareSiPrinter
untuk mengakhiri capturenya:
net use lpt1 /delete
Biar bisa digunakan di visual basic, coba jalankan dengan shell:
shell environ("ComSpec") & " /c net use lpt1
\\NamaKomputer\NamaShareSiPrinter"
Aksan Kurdin
--- In [email protected], "Nurdin" <[EMAIL PROTECTED]> wrote:
>
> Kalau boleh bagi dong softwarenya.
>
>
>
> Thank's
>
>
>
> _____
>
> From: [email protected] [mailto:Programmer-
[EMAIL PROTECTED]
> On Behalf Of Dody - PERMATA
> Sent: Tuesday, November 13, 2007 7:38 PM
> To: [email protected]
> Subject: Re: [Programmer-VB] Print USB
>
>
>
> Programnya tetep suruh kirim aja ke LPT1, entar di capture trus di
salurkan
> ke USB printer yg terinstall, saya ada softwarenya.
>
>
>
>
>
> ----- Original Message -----
>
> From: Nyom2-Denpasar <mailto:[EMAIL PROTECTED]>
>
> To: Programmer-VB@ <mailto:[email protected]>
yahoogroups.com
>
> Sent: Tuesday, November 13, 2007 6:26 PM
>
> Subject: Re: [Programmer-VB] Print USB
>
>
>
> kayaknya pake akal , lakukan capture ke LPT1 ke USB , tapi saya blm
coba :-)
>
>
>
> salam
>
> Nyom2
>
>
>
> ----- Original Message -----
>
> From: Nurdin <mailto:[EMAIL PROTECTED]>
>
> To: Programmer-VB@ <mailto:[email protected]>
yahoogroups.com
>
> Sent: Tuesday, November 13, 2007 9:11 AM
>
> Subject: [Programmer-VB] Print USB
>
>
>
> Hello VB Mania.
>
> Saya mohon bantuan, mungkin teman2 sudah ada yang pernah mencetak
> menggunakan Open USB ke printer Dot Matric.
>
> Perintah yang saya pakai untuk mencetak ke LPT1 sbb :
>
> Open "LPT1:" For Output As #1
>
> Print #1, "HEADER REPORT"
>
> Print #1, "Detail Transaksi"
>
> Close #1
>
> Hasilnya OK.
>
> Saya coba perintah untuk USB sbb :
>
> Open "USB0:" For Output As #1
>
> Print #1, "HEADER REPORT"
>
> Print #1, "Detail Transaksi"
>
> Close #1
>
> Hingga saya coba USB1, USB2 dst, tetap gak bisa.
>
> Mungkin teman2 ada yang tahu untuk cetak menggunakan port USB
>
> Terima kasih.
>
>
> _____
>
> size=2 width="100%" align=center>
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.503 / Virus Database: 269.15.30/1126 - Release Date:
11/12/2007
> 12:56 PM
>
