vb.net 設定預設印表機 用紙屬性的問題

主要是採用winspool.Drv這個dll，該庫中存在OpenPrinter，ClosePrinter，SetPrinter函數，通過對其使用，實現設定預設印表機的相關屬性。

sample：

 

<Runtime.InteropServices.DllImport("winspool.Drv", EntryPoint:="OpenPrinterW", _ 
       SetLastError:=True, CharSet:=CharSet.Unicode, _ 
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _ 
    Public Shared Function OpenPrinter()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()Function ClosePrinter(ByVal phPrinter As IntPtr) As Integer 
    End Function 
 
    <DllImport("winspool.drv")> _ 
    Public Shared Function SetPrinter()Function SetPrinter(ByVal hPrinter As IntPtr, ByVal level As Integer, ByVal lpBytes As IntPtr, ByVal command As Integer) As Boolean 
    End Function 
 
 
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("A3") 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)