Imports System.Drawing.Printing
Imports System.Runtime.InteropServices
Imports System.ComponentModel
Public Class PrnDrvClass
‘ Constants for DEVMODE
Dim CCHFORMNAME As Integer = 32
Dim CCHDEVICENAME As Integer = 32
‘ Constants for PRINTER_DEFAULTS.DesiredAccess
Dim PRINTER_ACCESS_ADMINISTER As Integer = &H4
Dim PRINTER_ACCESS_USE As Integer = &H8
Dim STANDARD_RIGHTS_REQUIRED As Integer = &HF0000
Dim PRINTER_ALL_ACCESS As Integer = (STANDARD_RIGHTS_REQUIRED Or _
PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)
‘ Constants for DocumentProperties() call
Dim DM_MODIFY As Integer = 8
‘ Dim DM_IN_BUFFER As Integer = DM_MODIFY
Dim DM_COPY As Integer = 2
‘ Dim DM_OUT_BUFFER As Integer = DM_COPY
‘ Custom constants for this sample’s SelectForm function
Dim FORM_NOT_SELECTED As Integer = 0
Dim FORM_SELECTED As Integer = 1
Dim FORM_ADDED As Integer = 2
‘ ユーザー定義の用紙を示す定数の宣言
Dim FORM_USER As Int32 = &H0&
‘/* orientation selections */
Dim DMORIENT_PORTRAIT As Short = 1
Dim DMORIENT_LANDSCAPE As Short = 2
Dim DMPAPER_USER As Integer = 256
‘/* field selection bits */
‘ Dim DM_ORIENTATION As Integer = &H1&
Dim DM_FORMNAME As Integer = &H10000
Dim DM_ORIENTATION As Integer = &H1
Dim DM_PAPERSIZE As Integer = &H2
Dim DM_PAPERLENGTH As Integer = &H4
Dim DM_PAPERWIDTH As Integer = &H8
Dim DM_SCALE As Integer = &H10
Dim DM_DEFAULTSOURCE As Integer = &H200
Dim DMPAPER_A3 As Short = 8 ‘ /* A3 297 x 420 mm */
Dim DMPAPER_A4 As Short = 9 ‘/* A4 210 x 297 mm */
Dim DMPAPER_A4SMALL As Short = 10 ‘/* A4 Small 210 x 297 mm */
Dim DMPAPER_A5 As Short = 11 ‘/* A5 148 x 210 mm */
Dim DMPAPER_B4 As Short = 12 ‘/* B4 (JIS) 250 x 354 */
Dim DMPAPER_B5 As Short = 13 ‘/* B5 (JIS) 182 x 257 mm */
‘DocumentProperties Use
Private Const DM_OUT_BUFFER As Short = 2
Private Const DM_PROMPT As Short = 4
Private Const DM_IN_PROMPT As Short = DM_PROMPT
Private Const DM_IN_BUFFER As Short = 8
‘幅と高さを定義する構造体の宣言
<StructLayout(LayoutKind.Sequential)> _
Public Structure SIZEL
Public cx As Int32
Public cy As Int32
End Structure
‘矩形を定義する構造体の宣言
<StructLayout(LayoutKind.Sequential)> _
Public Structure RECTL
Public left As Int32
Public top As Int32
Public right As Int32
Public bottom As Int32
End Structure
Public Structure PRINTER_DEFAULTS
‘ Dim pDatatype As String
‘ Dim pDevMode As IntPtr ‘ DEVMODE
‘ Dim DesiredAccess As Long
Dim pDatatype As IntPtr
Dim pDevMode As IntPtr ‘ DEVMODE
Dim DesiredAccess As Long
End Structure
‘FORM_INFO_1 (用紙情報を定義する構造体)
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
Public Structure FORM_INFO_1
<MarshalAs(UnmanagedType.I4)> Public Flags As Int32
<MarshalAs(UnmanagedType.LPTStr)> Public pName As String
Public Size As SIZEL
Public ImageableArea As RECTL
End Structure
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
Public Structure PRINTER_INFO_2
Public pServerName As String
Public pPrinterName As String
Public pShareName As String
Public pPortName As String
Public pDriverName As String
Public pComment As String
Public pLocation As String
Public pDevMode As IntPtr
Public pSepFile As String
Public pPrintProcessor As String
Public pDatatype As String
Public pParameters As String
Public pSecurityDescriptor As IntPtr
Public Attributes As System.UInt32
Public Priority As System.UInt32
Public DefaultPriority As System.UInt32
Public StartTime As System.UInt32
Public UntilTime As System.UInt32
Public Status As System.UInt32
Public cJobs As System.UInt32
Public AveragePPM As System.UInt32
End Structure
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
Public Class DEVMODE
<MarshalAs(UnmanagedType.ByValTStr, sizeconst:=&H20)> _
Public dmDeviceName As String
Public dmSpecVersion As Short
Public dmDriverVersion As Short
Public dmSize As Short
Public dmDriverExtra As Short
Public dmFields As Integer
Public dmOrientation As Short
Public dmPaperSize As Short
Public dmPaperLength As Short
Public dmPaperWidth As Short
Public dmScale As Short
Public dmCopies As Short
Public dmDefaultSource As Short
Public dmPrintQuality As Short
Public dmColor As Short
Public dmDuplex As Short
Public dmYResolution As Short
Public dmTTOption As Short
Public dmCollate As Short
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=&H20)> _
Public dmFormName As String
Public dmLogPixels As Short
Public dmBitsPerPel As Integer
Public dmPelsWidth As Integer
Public dmPelsHeight As Integer
Public dmDisplayFlags As Integer
Public dmDisplayFrequency As Integer
Public dmICMMethod As Integer
Public dmICMIntent As Integer
Public dmMediaType As Integer
Public dmDitherType As Integer
Public dmICCManufacturer As Integer
Public dmICCModel As Integer
Public dmPanningWidth As Integer
Public dmPanningHeight As Integer
Public Overrides Function ToString() As String
Return String.Concat(New Object() {”[DEVMODE: dmDeviceName=", Me.dmDeviceName, ", dmSpecVersion=", Me.dmSpecVersion, ", dmDriverVersion=", Me.dmDriverVersion, ", dmSize=", Me.dmSize, ", dmDriverExtra=", Me.dmDriverExtra, ", dmFields=", Me.dmFields, ", dmOrientation=", Me.dmOrientation, ", dmPaperSize=", Me.dmPaperSize, ", dmPaperLength=", Me.dmPaperLength, ", dmPaperWidth=", Me.dmPaperWidth, ", dmScale=", Me.dmScale, ", dmCopies=", Me.dmCopies, ", dmDefaultSource=", Me.dmDefaultSource, ", dmPrintQuality=", Me.dmPrintQuality, ", dmColor=", Me.dmColor, ", dmDuplex=", Me.dmDuplex, ", dmYResolution=", Me.dmYResolution, ", dmTTOption=", Me.dmTTOption, ", dmCollate=", Me.dmCollate, ", dmFormName=", Me.dmFormName, ", dmLogPixels=", Me.dmLogPixels, ", dmBitsPerPel=", Me.dmBitsPerPel, ", dmPelsWidth=", Me.dmPelsWidth, ", dmPelsHeight=", Me.dmPelsHeight, ", dmDisplayFlags=", Me.dmDisplayFlags, ", dmDisplayFrequency=", Me.dmDisplayFrequency, ", dmICMMethod=", Me.dmICMMethod, ", dmICMIntent=", Me.dmICMIntent, ", dmMediaType=", Me.dmMediaType, ", dmDitherType=", Me.dmDitherType, ", dmICCManufacturer=", Me.dmICCManufacturer, ", dmICCModel=", Me.dmICCModel, ", dmPanningWidth=", Me.dmPanningWidth, ", dmPanningHeight=", Me.dmPanningHeight, "]“})
End Function
End Class
‘================================================================
‘
‘
‘
‘================================================================
‘Win32API
Private Declare Auto Function DocumentProperties Lib “winspool.drv” ( _
ByVal hwnd As IntPtr, _
ByVal hPrinter As IntPtr, _
<MarshalAs(UnmanagedType.LPTStr)> ByVal pDeviceNameg As String, _
ByVal pDevModeOutput As IntPtr, _
ByVal pDevModeInput As IntPtr, _
ByVal fMode As Integer) As Int32
Private Declare Auto Function GlobalLock Lib “kernel32″ (ByVal hmem As IntPtr) As IntPtr
Private Declare Auto Function GlobalFree Lib “kernel32″ (ByVal hmem As IntPtr) As Int32
Private Declare Auto Function GlobalUnlock Lib “kernel32″ (ByVal hMem As IntPtr) As Int32
Private Declare Auto Function OpenPrinter Lib “winspool.drv” ( _
<MarshalAs(UnmanagedType.LPTStr)> ByVal pPrinterName As String, _
ByRef phPrinter As IntPtr, _
ByRef pDefault As PRINTER_DEFAULTS) As Int32
Private Declare Auto Function ClosePrinter Lib “winspool.drv” (ByVal hPrinter As IntPtr) As Int32
Private Declare Auto Function SetPrinter Lib “winspool.drv” ( _
ByVal hPrinter As IntPtr, _
ByVal Level As Integer, _
ByVal pForm As IntPtr, _
ByVal Command As Integer) As Boolean
Private Declare Auto Function GetPrinter Lib “winspool.drv” ( _
ByVal hPrinter As IntPtr, ByVal dwLevel As Integer, _
ByVal pPrinter As IntPtr, ByVal cbBuf As Integer, _
ByRef pcbNeeded As Integer) As Boolean
Private Declare Auto Function AddForm Lib “winspool.drv” ( _
ByVal hPrinter As IntPtr, _
ByVal Level As Integer, _
ByVal pForm As IntPtr) As Integer
Private Declare Auto Function DeleteForm Lib “winspool.drv” (ByVal hPrinter As IntPtr, _
<MarshalAs(UnmanagedType.LPTStr)> ByVal pName As String) As Integer
‘================================================================
‘ プリンター設定を指定された用紙サイズと名前で追加し
‘ デフォルト設定する
‘
‘ パラメータ
‘ hwnd ：Wndハンドルを指定する
‘ printerName ：設定したいプリンター名（コントロールパネルで設定済みのもの）
‘ paper ：用紙名称 好きな名前を付ける、削除する際に必要
‘ width ：用紙幅
‘ height ：用紙高さ
‘
‘ 戻り値 なし
‘
‘
‘================================================================
Public Sub addPaper(ByVal hwnd As IntPtr, ByVal printerName As String, _
ByVal paper As String, ByVal width As Integer, ByVal height As Integer)
Dim ret As Integer
Dim hPrinter As IntPtr
Dim FormInfo1Level As Integer = 1
Dim FormInfo1 As FORM_INFO_1
Dim prtFormInfo1 As IntPtr
Dim pDevMode As DEVMODE
Dim _PrinterName As String = printerName
Dim pd As New PRINTER_DEFAULTS
Dim pPrinterDef As IntPtr = IntPtr.Zero
Dim pi2 As PRINTER_INFO_2
Dim pPrinterInfo As IntPtr = IntPtr.Zero
Try
pd.DesiredAccess = PRINTER_ALL_ACCESS
‘ プリンタのハンドルを取得
ret = OpenPrinter(printerName, hPrinter, pd)
If ret = 0 Or hPrinter.Equals(IntPtr.Zero) Then
Throw New Win32Exception(Marshal.GetLastWin32Error())
Return
End If
With FormInfo1
‘ 特性にユーザー定義を指定
.Flags = FORM_USER
‘ 用紙名を指定
.pName = paper
‘ 幅と高さを指定
.Size.cx = width
.Size.cy = height
‘印刷範囲を指定()
.ImageableArea.left = 50
.ImageableArea.top = 50
.ImageableArea.right = width – 50
.ImageableArea.bottom = height – 50
End With
prtFormInfo1 = Marshal.AllocHGlobal(Marshal.SizeOf(GetType(FORM_INFO_1)))
Marshal.StructureToPtr(FormInfo1, prtFormInfo1, True)
‘ 用紙情報を追加
ret = AddForm(hPrinter, FormInfo1Level, prtFormInfo1)
Dim Struct1 As FORM_INFO_1
Struct1 = CType(Marshal.PtrToStructure(prtFormInfo1, GetType(FORM_INFO_1)), FORM_INFO_1)
‘=========================================
‘必要なバイト数を取得する
Dim needed As Integer
GetPrinter(hPrinter, 2, IntPtr.Zero, 0, needed)
If needed <= 0 Then
Throw New Exception(”失敗しました。”)
End If
Debug.Print(”needed=” & needed)
‘メモリを割り当てる
pPrinterInfo = Marshal.AllocHGlobal(needed)
‘ Dim globalDevIn As IntPtr = GlobalLock(PtrDMIn)
‘プリンタ情報を取得する
Dim temp As Integer
If Not GetPrinter(hPrinter, 2, pPrinterInfo, needed, temp) Then
Throw New Win32Exception(Marshal.GetLastWin32Error())
End If
Debug.Print(”temp=” & temp)
‘PRINTER_INFO_2型にマーシャリングする
pi2 = CType(Marshal.PtrToStructure( _
pPrinterInfo, GetType(PRINTER_INFO_2)), PRINTER_INFO_2)
‘ 構造体とポインターの変換 pi2.pDevMode
pDevMode = CType(Marshal.PtrToStructure(pi2.pDevMode, _
GetType(DEVMODE)), DEVMODE)
Debug.Print(”変更前＝” & pDevMode.dmFormName)
Debug.Print(”変更前dmPaperWidth＝” & pDevMode.dmPaperWidth)
Debug.Print(”変更前dmPaperLength＝” & pDevMode.dmPaperLength)
pDevMode.dmFormName = paper & Chr(0) ‘ Must be NULL terminated!
‘ Set the dmFields bit flag to indicate what you are changing.
pDevMode.dmFields = DM_FORMNAME
Debug.Print(”変更後＝” & pDevMode.dmFormName)
Debug.Print(”変更後dmPaperWidth＝” & pDevMode.dmPaperWidth)
Debug.Print(”変更後dmPaperLength＝” & pDevMode.dmPaperLength)
Marshal.StructureToPtr(pDevMode, pi2.pDevMode, False)
ret = DocumentProperties(hwnd, hPrinter, _PrinterName, pi2.pDevMode, _
pi2.pDevMode, DM_IN_BUFFER Or DM_OUT_BUFFER)
Marshal.StructureToPtr(pi2, pPrinterInfo, False)
‘/* プリンタ情報のアップデート */
Dim b As Boolean = SetPrinter(hPrinter, 2, pPrinterInfo, 0)
If b = True Then
MsgBox(”プリンタードライバーの設定。”)
Else
Debug.Print(”err=” & Marshal.GetLastWin32Error())
‘ Dim LangOptions As Long
‘ LangOptions = &H0
‘ Dim buffer As String
‘ buffer = Space(256)
‘ lngReturn = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, 0&, Err.LastDllError, LangOptions, buffer, Len(buffer), 0&)
‘ MsgBox(”Could not set printer: ” & buffer)
MsgBox(Marshal.GetLastWin32Error())
‘ Throw New Win32Exception(Marshal.GetLastWin32Error())
End If
If ret <= 0 Then
Throw New Win32Exception(Marshal.GetLastWin32Error())
End If
Catch ex As Exception
MessageBox.Show(ex.Message, “エラー”)
Finally
‘後始末をする
Marshal.FreeHGlobal(pPrinterInfo)
If Not hPrinter.Equals(IntPtr.Zero) Then
ClosePrinter(hPrinter)
End If
‘ Marshal.FreeHGlobal(prtFormInfo1)
End Try
End Sub
‘================================================================
‘ユーザー定義サイズ用紙削除
‘
‘ パラメータ
‘ printerName ：設定したいプリンター名（コントロールパネルで設定済みのもの）
‘ paper ：用紙名称 好きな名前を付ける、削除する際に必要
‘
‘ 戻り値 なし
‘
‘
‘================================================================
Public Sub DeletePaperForm(ByVal printerName As String, ByVal paper As String)
Dim ret As Integer
Dim hPrinter As IntPtr
Dim pd As New PRINTER_DEFAULTS
pd.DesiredAccess = PRINTER_ALL_ACCESS
Try
‘ プリンタのハンドルを取得
ret = OpenPrinter(printerName, hPrinter, pd)
If ret = 0 Or hPrinter.Equals(IntPtr.Zero) Then
Return
End If
‘ 用紙の削除
ret = DeleteForm(hPrinter, paper)
If ret <= 0 Then
Throw New Win32Exception(Marshal.GetLastWin32Error())
End If
MsgBox(”delete sucess”)
Catch ex As Exception
MessageBox.Show(ex.Message, “エラー”)
Finally
If Not hPrinter.Equals(IntPtr.Zero) Then
ClosePrinter(hPrinter)
End If
End Try
End Sub
End Class