struk kasir jomla

      panas-panas enaknya ngepos tapi tidak lupa bentar lagi sholat dhuhur ok baik saya akan mengepost tentang sruk kasir jomla memang saya belum tau pasti apa itu jomla tapi saya hanya ini ngepost saja jika ada yang mau melihat silahkan lihat

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
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 GSN_Print(NamaFile As String, DataPrint 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

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 = vbCrLf & DataPrint & vbCrLf
‘ vbFormFeed
lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, Len(sWrittenData), lpcWritten)

lReturn = EndPagePrinter(lhPrinter)
lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)
End Sub

Private Sub Command1_Click()
Dim NamaFile As String
Dim DataPrint As String
NamaFile = “namafileku” ‘terserah diisi apa, tidak ikut di-print. Hanya muncul di Window Queue Printer
DataPrint = “Hello,” & vbCrLf & “selamat pagi,” & vbCrLf & “Nama saya Sukiyanto.” & vbCrLf & “http://www.gsn-soeki.com”
Call GSN_Print(NamaFile, DataPrint)
End Sub