pake fungsi API32

saya lupa tapi yang namanya spt OPENPRINT


----- Original Message ----
From: hendra_b25 <[EMAIL PROTECTED]>
To: [email protected]
Sent: Monday, May 26, 2008 7:20:29 AM
Subject: [Programmer-VB] direct print dengan Printer LX 300+ USB Port bisa 
tidak ya???


Para suhu sekalian mohon bantuan nya.
saya ingin cetak nota pada printer lx 300 + menggunakan USB port
(karena tidak ada LPT nya)
sy sudah coba dengan object printer

Printer.Print
Printer.Print
Printer.Print Tab(1); "Isi struk pada baris 1";
Printer.Print Tab(1); "Isi struk pada baris berikutnya";
Printer.Print
Printer.EndDoc

tp kertas yg keluar sgt panjang, seukuran kertas normal A4
setelah searching2 di millist ini
sy dapat yg direct print :

Open "LPT1:" For Output As #1
Print #1,
Print #1, Tab(1); "Isi struk pada baris 1";
Print #1, Tab(1); "Isi struk pada baris berikutnya";
Print #1,
Close #1

tapi kalau di ganti port "USB001" tidak bisa
(sy sdh cek, yg aktif itu USB001)

Open "USB001" For Output As #1
Print #1,
Print #1, Tab(1); "Isi struk pada baris 1";
Print #1, Tab(1); "Isi struk pada baris berikutnya";
Print #1,
Close #1

mohon bantuan nya para teman2 vbers dan para suhu vb sekalian...

    


      

Kirim email ke