> saya mau nanya pada milis, kalo saya mau print faktur di
countinuos form dimana countinuous form itu yang ukuran quarto/A4
dan di bagi dua,nah misalnya saya print faktur yang pertama kan
kertasnya otomatis keluar/eject dengan sendirinya baru kita bisa
cetak faktur kedua(jadinya pada lembaran ke 3 faktur yang
diprint),gimana ya supaya setiap kali siap mencetak faktur itu
jangan langsung mengeject kertasnya keluar.?gimana ya jika
menggunakan CR atau dengan perintah print itu?
>
::
Untuk mencetak faktur di countinuous form, saya dulu pake 2 cara,
yang pertama menggunakan perintah Printer.Print :
Contoh :
Printer.CurrentY = 300
Printer.CurrentX = 8700
Printer.FontName = "Roman 6cpi"
Printer.Print "Nota Penjualan"
Printer.CurrentY = 700
Printer.CurrentX = 1600
Printer.FontName = "Roman 6cpi"
Printer.Print "No Nota : " & txtNoNota.Text
dst...............
Cara ini saya anggap kurang flexsibel karena say aharus menghitung
posisi X, Y setiap kali akan mencetak data. Selain itu jenis font
kadang tidak sama untuk semua printer. Saya ambil contoh di printer
LX-800 tersedia Roman 6cpi tapi di printer LQ-2170 tidak disediakan.
Hal ini akan jadi masalah ketika kita sudah terlanjur men-setting
dengan font tertentu tapi setelah di-deploy font tersebut tidak ada,
tentunya hasil printnya akan ngaco...
Cara kedua data yg akan diprint ditulis dulu dalam sebuah file text,
kemudian dari file text tsb baru di print, contoh:
Dim NF As Integer
NF = FreeFile
Open App.Path & "\FilePrinted.txt" For Output As #NF
Print #NF, Space(15) & "Nota Penjualan"
Print #NF, Space(11) & "No Nota : " & txtNoNota.Text
Close #NF
Shell "Cmd.Exe /C Type FilePrinted.txt>prn"
Cara kedua ini saya pikir lebih manusiawi dibandingkan dengan cara
yg pertama, tapi kelemahannya setiap kali akan print harus membuat
sebuah file, tentunya semakin sering mencetak faktur akan semakin
sering pula mengggunakan harddisk. Metode ini juga mungkin
menimbulkan masalah, seandainya di kantor anda sudah menggunakan
jaringan, dan administrator tidak mengijinkan create file di
komputer client (seperti yg pernah saya alami hehehehehe).
OK..itu pengalaman saya sewaktu bermain-main dengan faktur, mungkin
rekan2 lain punya metode yg lebih baik silahkan di share.
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
