VB.NET条码机打印设置纸张大小的方法

Imports System.Drawing.Printing
Imports
System.Runtime.InteropServices

Public Class Page

<Runtime.InteropServices.DllImport("winspool.Drv",
EntryPoint:="OpenPrinterW", _
      SetLastError:=True,
CharSet:=CharSet.Unicode, _
      ExactSpelling:=True,
CallingConvention:=CallingConvention.StdCall)> _
   Public Shared Function
OpenPrinter(ByVal src As String, ByRef hPrinter As IntPtr, ByVal pd As Long) As
Boolean
    End Function

<System.Runtime.InteropServices.DllImportAttribute("winspool.drv",
SetLastError:=True)> _
Public Shared Function ClosePrinter(ByVal
phPrinter As IntPtr) As Integer
End Function

<DllImport("winspool.drv")> _
Public Shared Function
SetPrinter(ByVal hPrinter As IntPtr, ByVal level As Integer, ByVal lpBytes As
IntPtr, ByVal command As Integer) As Boolean
End Function

Public Shared Function Setting(ByVal PageName As String) As Boolean

Try
            Dim printerSettings As PrinterSettings
            Dim
document As New PrintDocument()

printerSettings =
document.PrinterSettings

Dim hPrinter As IntPtr

OpenPrinter(printerSettings.PrinterName, hPrinter, 0)

Dim p
As PaperSize = Nothing
            Dim ps As PaperSize
            For
Each ps In document.PrinterSettings.PaperSizes
                If
ps.PaperName.Equals(PageName) Then
                    p =
ps
                End If
            Next

document.DefaultPageSettings.PaperSize = p

Dim hDevMode As
IntPtr =
printerSettings.GetHdevmode(document.DefaultPageSettings)
            Dim ret
As Boolean = SetPrinter(hPrinter, 9, hDevMode, 0)

ClosePrinter(hPrinter)
            Return True
        Catch ex As
Exception

End Try

End Function
End Class

巴特西

VB.NET条码机打印设置纸张大小的方法

最新文章

热门文章