Esc Command apalagi nih? Wah saya juga bingung kalo disuruh jelasin
Ngiri sama program2x DOSSaya atau Anda mungkin pernah membandingkan kecepatan print yang kita buat pake vb atw delphi kalah jauh dengan kecepatan printnya program2x DOS. Biasanya nih kita yang koding pake VB untuk urusan report/ngeprint pake :
1. Data Report (bawaan VB)
2. Seagete Crystal Report
3. Active Report
4. Pake printah internal VB (printer.print)
Sesungguhnya sesudah kesulitan itu ada kemudahanHal ini yang pernah saya alami waktu ngerjain program untuk salah satu swalayan di Jogja dan gara2x ngerjain proyek ini nih tugas akhir saya harus molor 1 semester
. Usut punya usut, eh ternyata di VB juga bisa kok ngeprint secepat di DOS
, yaitu tadi pake ESC Command, tapi jangan senang dulu
, ternyata tidak semua printer dukung ESC Command, tapi yang jelas saya udah pernah coba untuk printer Epson dan Samsung baik yang pake port LPT ataupun yang COM.
Ngintip ESC CommandAh.. ternyata cuma segitu simple banget, misal kalo portnya pake LPT1:
Open "LPT1:" For Output As #1
Print #1, "Test ngeprint pake ESC Command"
Close #1
Kalo portnya pake COM1:
Open "COM1:" For Output As #1
Print #1, "Test ngeprint pake ESC Command"
Close #1
Printah2x yang sering dipake :
Print #1, Chr$(&H1B); "a"; Chr$(0) 'rata kiri
Print #1,Chr$(&H1B); "a"; Chr$(1) 'rata tengah
Perintah untuk membuka cash drawer, kok banyak ya? ya tergantung jenis printernya
Print #1, Chr$(&H1B); Chr$(&H70);Chr$(&H0); Chr$(60); Chr$(120);
Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(10);Chr$(100);
Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(25); Chr$(250);
Print #1, Chr$(&H1B); "p"; Chr$(1); Chr$(25);Chr$(250);
Print #1, Chr$(&H1B); Chr$(&H70); Chr$(&H0); Chr$(60);Chr$(120);
Referensi ESC Command ?Ya tanya aja sama mbah GoOgle
Selamat mencoba
