Seven Technology

Pernahkan anda mengalami kesulitan untuk mencetak text/faktur pada continues form. nah jangan khawatir berikut ini adalah salah satu contoh untuk mencetak text pada continues form. Pada Module1 paste code berikut: Option Explicit Private Type DOCINFO pDocName As String pOutputFile As String pDatatype As String End Type Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal _ hPrinter As Long) As Long Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal _ hPrinter As Long) As Long Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal _ hPrinter As Long) As Long Private Declare Function OpenPrinter Lib "winspool.drv" Alias _ "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _ ByVal pDefault As Long) As Long Private Declare Function StartDocPrinter Lib "winspool.drv" Alias _ "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _ pDocInfo As DOCINFO) As Long Pri...

Apa yang dimaksud dengan cash drawer? Cash drawer adalah laci tempat uang yang biasanya di pakai pada swalayan. Jika anda membuat program POS (Point of sales) silahkan simak bacaan berikut. Tutorial kali ini adalah bagaimana caranya atau code untuk membuka laci atau cash drawer, yg terhubung lewat port serial [COM1] atau pararel port [LPT1] menggunakan VB6 atau bahasa lainnya. Berikut ulasannya : 1. Printer POS Samsung (port LPT) Open "LPT1:" For Output As #1 Print #1, Chr$(&H1B); "@"; 'Initializes the printer (ESC@) Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(25); Chr$(250); 'open cash drawer Close #1 2. Printer POS Start (port LPT) Open "LPT1:" For Output As #1 Print #1, Chr$(&H1B); "@"; 'Initializes the printer (ESC @) Print #1, Chr$(&H1B); "3"; Chr$(5); ' Set line spacing" Print #1, Chr$(27); Chr$(7); Chr$(11); Chr$(55); Chr$(7) 'open cash drawer Close #1 3. Printer POS Epson (port COM...

Berikut ini adalah tutorial tentang Menampilkan properties system windows. Misalkan pada program yang ingin kita buat, berisi menu utility untuk menampilkan dialog Display Properties dan fokus ke tab Screen Saver, maka cukup dengan kode berikut: Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1",vbNormalFocus) Contoh diatas adalah pemakaian pada VB6, atau anda juga bisa pakai pada bahasa pemrograman lainnya tergantung dari bahasanya: Dan berikut daftar command yang bisa digunakan : command: rundll32.exe shell32.dll,Control_RunDLL result: displays all the Control Panel icons in an Explorer view command: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5 result: displays the Accessibility General properties command: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1 result: displays the Accessibility Keyboard properties command: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2 result: displays the Accessibility Sound properties command: rundll32.exe sh...

Pernahkan anda terpikir, bagaimana caranya membuat label barcode seperti yang tertempel pada barang-barang yang dijual di swalayan? Sebenarnya cukup gampang membuatnya yaitu cukup menggunakan font C39HDM2.TTF [BC C39 2 to 1 HD Medium]. Untuk mendapat font ini, anda bisa email saya ke ketutsapta@gmal.com, saya akan mengirimkannya atau donload di internet. Setelah anda download, instal lah font tersebut dengan membuka : Start-Control Panel - Fonts Lalu klik File - Install New Font - Cari path tempat Font C39HDM2.TTF yang anda baru download. Dengan font ini, anda bisa membuat label barcode, baik mau diprint menggunakan Micosoft Excel, Word atau lainnya yang mendukung font ini. Jika anda ingin membuat program menggunakan VB atau FoxPro atau Delphi atau bahasa program lainnya, cukup install font ini kemudian pada text field report masukkan tanda asterik * dng diikuti namafield an diakhiri asterik *, kemudian ganti font nya menjadi font C39HDM2.TTF kemudian preview Contoh : *Barang.kodebara...