Module mdlprint
Public Class RawPrinter
' ----- Define the data type that supplies basic print job information to the spooler.
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
Public Structure DOCINFO
<MarshalAs(UnmanagedType.LPWStr)> _
Public pDocName As String
<MarshalAs(UnmanagedType.LPWStr)> _
Public pOutputFile As String
<MarshalAs(UnmanagedType.LPWStr)> _
Public pDataType As String
End Structure
' ----- Define interfaces to the functions supplied in the DLL.
<DllImport("winspool.drv", EntryPoint:="OpenPrinterW", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function OpenPrinter(ByVal printerName As String, ByRef hPrinter As IntPtr, ByVal printerDefaults As Integer) As Boolean
End Function
<DllImport("winspool.drv", EntryPoint:="ClosePrinter", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function ClosePrinter(ByVal hPrinter As IntPtr) As Boolean
End Function
<DllImport("winspool.drv", EntryPoint:="StartDocPrinterW", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function StartDocPrinter(ByVal hPrinter As IntPtr, ByVal level As Integer, ByRef documentInfo As DOCINFO) As Boolean
End Function
<DllImport("winspool.drv", EntryPoint:="EndDocPrinter", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function EndDocPrinter(ByVal hPrinter As IntPtr) As Boolean
End Function
<DllImport("winspool.drv", EntryPoint:="StartPagePrinter", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function StartPagePrinter(ByVal hPrinter As IntPtr) As Boolean
End Function
<DllImport("winspool.drv", EntryPoint:="EndPagePrinter", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function EndPagePrinter(ByVal hPrinter As IntPtr) As Boolean
End Function
<DllImport("winspool.drv", EntryPoint:="WritePrinter", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function WritePrinter(ByVal hPrinter As IntPtr, ByVal buffer As IntPtr, ByVal bufferLength As Integer, ByRef bytesWritten As Integer) As Boolean
End Function
Public Shared Function PrintRaw(ByVal printerName As String, ByVal origString As String) As Boolean
' ----- Send a string of raw data to the printer.
Dim hPrinter As IntPtr
Dim spoolData As New DOCINFO
Dim dataToSend As IntPtr
Dim dataSize As Integer
Dim bytesWritten As Integer
' ----- The internal format of a .NET String is just
' different enough from what the printer expects
' that there will be a problem if we send it
' directly. Convert it to ANSI format before
' sending.
dataSize = origString.Length()
dataToSend = Marshal.StringToCoTaskMemAnsi(origString)
' ----- Prepare information for the spooler.
spoolData.pDocName = "OpenDrawer" ' class='highlight'
spoolData.pDataType = "RAW"
Try
' ----- Open a channel to the printer or spooler.
Call OpenPrinter(printerName, hPrinter, 0)
' ----- Start a new document and Section 1.1.
Call StartDocPrinter(hPrinter, 1, spoolData)
Call StartPagePrinter(hPrinter)
' ----- Send the data to the printer.
Call WritePrinter(hPrinter, dataToSend, _
dataSize, bytesWritten)
' ----- Close everything that we opened.
EndPagePrinter(hPrinter)
EndDocPrinter(hPrinter)
ClosePrinter(hPrinter)
PrintRaw = True
Catch ex As Exception
MsgBox("Error occurred: " & ex.ToString)
PrintRaw = False
Finally
' ----- Get rid of the special ANSI version.
Marshal.FreeCoTaskMem(dataToSend)
End Try
End Function
End Class
End Module
Public Class Main
Public Sub OpenCashdrawer()
'Modify DrawerCode to your receipt printer open drawer code
Dim DrawerCode As String = Chr(27) & Chr(112) & Chr(48) & Chr(64) & Chr(64)
'Modify PrinterName to your receipt printer name
Dim PrinterName As String = "Your receipt printer name"
RawPrinter.PrintRaw(PrinterName, DrawerCode)
End Sub
End Class
26-03-20, 03:46 AM (آخر تعديل لهذه المشاركة : 26-03-20, 03:49 AM {2} بواسطة ابراهيم ايبو.)
السلام عليكم اخوتي الكرام
بارك الله بك اخي عبد العزيز ماشاء الله دائما سباق ومتفاني في المساعدة
بالرغم من اني لم اقم بفتح اي درج كاشير في حياتي ولم اكتب اي كود في هذا المجال
اعتقد ان درج الكاشير يعتمد على نبضة كهربية تأتيه من الطابعة ليفتح (طريقة عقيمة وغير عملية لانه يجب طباعة اي شيئ)
ربما هناك طريقة اخرى .... المهم احببت المشاركة .. وهنا في المنتدى يوجد كود لاخينا الفاضل عاصم شاهين جزاه الله كل الخير
اليكم الرابط عسى يكون البلسم الشافي للسؤال http://vb4arb.com/vb/showthread.php?tid=26380
اما بالنسبة لك اخي بدل السؤال عن التوصيل مباشرة بدون طابعة فالتجربة اكبر برهان وعسى ان تصل الى شيء نستفيد منه
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
