I have followed the instruction to write the code in vb.net to send the raw string to the Zebra printer that shared from another workstation.
I have tried several function below:
Private Sub SendToPrinter(ByVal printerJobName As String, ByVal rawStringToSendToThePrinter As String, ByVal printerNameAsDescribedByPrintManager As String)
Dim handleForTheOpenPrinter = New IntPtr()
Dim documentInformation = New Docinfo()
Dim printerBytesWritten = 0
documentInformation.DocumentName = printerJobName
documentInformation.DataType = vbNullString
documentInformation.OutputFile = vbNullString
OpenPrinter(printerNameAsDescribedByPrintManager, handleForTheOpenPrinter, 0)
StartDocPrinter(handleForTheOpenPrinter, 1, documentInformation)
StartPagePrinter(handleForTheOpenPrinter)
WritePrinter(handleForTheOpenPrinter, rawStringToSendToThePrinter, rawStringToSendToThePrinter.Length, printerBytesWritten)
EndPagePrinter(handleForTheOpenPrinter)
EndDocPrinter(handleForTheOpenPrinter)
ClosePrinter(handleForTheOpenPrinter)
End Sub
Public Function SendStringToPrinter(ByVal szPrinterName As String, ByVal szString As String)
Dim pBytes As IntPtr
Dim dwCount As Int32
' How many characters are in the string?
dwCount = (szString.Length() + 1) * Marshal.SystemMaxDBCSCharSize
' Assume that the printer is expecting ANSI text, and then convert
' the string to ANSI text.
pBytes = Marshal.StringToCoTaskMemAnsi(szString)
' Send the converted ANSI string to the printer.
SendBytesToPrinter(szPrinterName, pBytes, dwCount)
Marshal.FreeCoTaskMem(pBytes)
End Function
Public Function SendFileToPrinter(ByVal szPrinterName As String, ByVal szFileName As String) As Boolean
' Open the file.
Dim fs As New FileStream(szFileName, FileMode.Open)
' Create a BinaryReader on the file.
Dim br As New BinaryReader(fs)
' Dim an array of bytes large enough to hold the file's contents.
Dim bytes(fs.Length) As Byte
Dim bSuccess As Boolean
' Your unmanaged pointer.
Dim pUnmanagedBytes As IntPtr
' Read the contents of the file into the array.
bytes = br.ReadBytes(fs.Length)
' Allocate some unmanaged memory for those bytes.
pUnmanagedBytes = Marshal.AllocCoTaskMem(fs.Length)
' Copy the managed byte array into the unmanaged array.
Marshal.Copy(bytes, 0, pUnmanagedBytes, fs.Length)
' Send the unmanaged bytes to the printer.
bSuccess = SendBytesToPrinter(szPrinterName, pUnmanagedBytes, fs.Length)
' Free the unmanaged memory that you allocated earlier.
Marshal.FreeCoTaskMem(pUnmanagedBytes)
Return bSuccess
End Function ' SendFileToPrinter()
Public Shared Function SendBytesToPrinter(ByVal szPrinterName As String, ByVal pBytes As IntPtr, ByVal dwCount As Int32) As Boolean
Dim hPrinter As IntPtr = New IntPtr(0) ' The printer handle.
Dim dwError As Int32 = 0 ' Last error - in case there was trouble.
Dim di As Docinfo = New Docinfo ' Describes your document (name, port, data type).
Dim dwWritten As Int32 = 0 ' The number of bytes written by WritePrinter().
Dim bSuccess As Boolean ' Your success code.
' Set up the DOCINFO structure.
With di
.DocumentName = "My Visual Basic .NET RAW Document"
.DataType = "RAW"
End With
' Assume failure unless you specifically succeed.
bSuccess = False
If OpenPrinter(szPrinterName.Normalize(), hPrinter, IntPtr.Zero) Then
If StartDocPrinter(hPrinter, 1, di) Then
If StartPagePrinter(hPrinter) Then
' Write your printer-specific bytes to the printer.
bSuccess = WritePrinter(hPrinter, pBytes, dwCount, dwWritten)
EndPagePrinter(hPrinter)
End If
EndDocPrinter(hPrinter)
End If
ClosePrinter(hPrinter)
End If
' If you did not succeed, GetLastError may give more information
' about why not.
If bSuccess = False Then
dwError = Marshal.GetLastWin32Error()
End If
Return bSuccess
End Function ' SendBytesToPrinter()
Dim s1 As New StringBuilder
s1.AppendLine("${N")
s1.AppendLine("q207")
s1.AppendLine("Q203,26")
s1.AppendLine("B26,26,0,UA0,2,2,152,""603679025109""")
s1.AppendLine("P1,1}$")
p.Print(s1, "ZDesigner LP 2844 - SHIPPING")
It did see the job is sent to the Printer. However, it shows error-printing. Anyone can help?
