Kamis, 20 Desember 2012
Gimana kabarnya ? Baik kan ? Ane mau bagi2 ilmu tentang gimana caranya buat/print/document struk lewat VB6 ..
Oke dah, sekarang siapkan alat dan bahan :
- Laptop (Recommended)
- Sudah terinstall Visual Basic 6 (Recommended)
- Kopi 1 gelas aja cukup (No Recommended)
- Printer Struk (No Recommended)
Udah Siap ? Oke sekarang langsung ke Tutorial nya .. Simak baik baik :
1. ) Kita harus tau ukuran kertasnya melalui jumlah string/karakter
2. ) Printer struknya harus di buat default di komputer
3. ) Buka VB6
4. ) Buat New Project, 1 Form , 1 Module, Dan 1 Class Module(Kasih nama "CetakStruk" *tanpa tanda " )
5. ) Di form tersebut, buat 1 Tombol/Command Button dgn caption Print
6. ) Masukan Script di bawah ke ClassModule yg telah agan buat :
Option Explicit
Private str As String
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
Private Declare Function StartPagePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function WritePrinter Lib "winspool.drv" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long
Public Sub cetakString(dataprint As String)
Dim Namafile As String
Dim lhPrinter As Long
Dim lReturn As Long
Dim lpcWritten As Long
Dim lDoc As Long
Dim sWrittenData As String
Dim MyDocInfo As DOCINFO
Namafile = "printer"
Printer.FontSize = 8
lReturn = OpenPrinter(Printer.DeviceName, lhPrinter, 0)
If lReturn = 0 Then
MsgBox "Printer tidak dikenali!", vbCritical, "Error"
Exit Sub
End If
MyDocInfo.pDocName = Namafile
MyDocInfo.pOutputFile = vbNullString
MyDocInfo.pDatatype = "RAW"
lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
Call StartPagePrinter(lhPrinter)
sWrittenData = dataprint & vbCrLf
' vbFormFeed
lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, Len(sWrittenData), lpcWritten)
lReturn = EndPagePrinter(lhPrinter)
lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)
End Sub
7. ) Masuk ke form dan masukan script di bawah :
Option Explicit
Dim cetak As New cetakStruk
Private Sub Command1_Click()
Dim kata As String
'kata = "12345678901234567890123456789012345678901234567890123456789012345678"
kata = " PARKIR " & vbCrLf & vbCrLf
kata = kata & " " & vbCrLf
kata = kata & " " & vbCrLf
kata = kata & " Mall Motor " & vbCrLf
kata = kata & " " & vbCrLf
kata = kata & " " & vbCrLf
kata = kata & " " & vbCrLf
kata = kata & "Rata Kiri " & vbCrLf
kata = kata & " " & vbCrLf
kata = kata & " " & vbCrLf
kata = kata & " " & vbCrLf
kata = kata & " Rata Kanan" & vbCrLf
kata = kata & " " & vbCrLf
kata = kata & " " & vbCrLf
kata = kata & " " & vbCrLf
kata = kata & " " & vbCrLf
kata = kata & "Kata1 kata2" & vbCrLf
'kata = " PARKIR "
'kata = kata & " " & vbCrLf
'kata = kata & " Mall Motor " & vbCrLf
'kata = kata & "Rata Kiri " & vbCrLf
'kata = kata & " " & vbCrLf
'kata = kata & " Rata Kanan" & vbCrLf
'kata = kata & " " & vbCrLf
'kata = kata & "Kata1 Kata2" & vbCrLf
cetak.cetakString kata
End Sub
8.) Pastikan print menyala dan sudah terhubung ke laptop/kompi dan sudah teruji printernya bisa.
9. ) Kalo sudah fix semua, coba Run(F5)/Jalankan program dan Lihat hasilnya
10. ) Kalo masih belum berhasil silahkan komentar di bawah..
Atau, agan bisa download programnya langsung Di Sini
Sekian dari saya, Wassalam
