プリンタ詳細ダイアログで設定した情報をセーブ／ロードしたい

    'PrinterSettingsをファイルに保存。
    Public Shared Sub SaveToBinaryFile( _
                    ByVal obj As PrinterSettings, ByVal path As String)
        Dim fs As FileStream
        Dim bf As BinaryFormatter

        fs = New FileStream(path, FileMode.Create, FileAccess.Write)
        bf = New BinaryFormatter()

        'シリアル化して書き込む
        bf.Serialize(fs, obj)

        fs.Close()
    End Sub

    'PrinterSettingsをファイルより読み込み。
    Public Shared Function LoadFromBinaryFile(ByVal path As String) _
                                                      As PrinterSettings
        Dim dsp As PrinterSettings '= New PrinterSettings
        Dim fs As FileStream
        Dim bf As BinaryFormatter

        fs = New FileStream(path, FileMode.Open, FileAccess.Read)
        bf = New BinaryFormatter()

        '読み込んで逆シリアル化する
        dsp = CType(bf.Deserialize(fs), PrinterSettings)
        fs.Close()

        Return dsp
    End Function

    Public Function GetDevMode(ByVal Device As String) As Integer

        Dim ret As Integer
        Dim hPrinter As IntPtr
        Dim PtrDMOut As IntPtr
        Dim PtrDMIn As IntPtr
        Dim _PrinterName As String = Device

        PtrDMIn = _PS.GetHdevmode(_PS.DefaultPageSettings)
        PtrDMOut = _PS.GetHdevmode(_PS.DefaultPageSettings)

        Dim globalDevIn As IntPtr = GlobalLock(PtrDMIn)
        Dim globalDevOut As IntPtr = GlobalLock(PtrDMOut)

        Try
            'プリンタのハンドルを取得
            ret = OpenPrinter(_PrinterName, hPrinter, IntPtr.Zero)
            If ret = 0 Or hPrinter.Equals(IntPtr.Zero) Then
                Return 0
            End If

            'DialogBox 表示
            ret = DocumentProperties(Me.Handle, hPrinter, _PrinterName, _
                                     globalDevOut, globalDevIn, _
                                DM_IN_PROMPT Or DM_IN_BUFFER Or DM_OUT_BUFFER)

            If PtrDMOut.Equals(IntPtr.Zero) Then
                Return 0
            End If
            'DialogBoxでOKがクリックされた場合に設定内容を反映させる。
            If ret = 1 Then
                _PS.DefaultPageSettings.SetHdevmode(globalDevOut)
                _PS.SetHdevmode(globalDevOut)
                Me.Setvalues()
            End If

            Return ret

        Catch ex As Exception
            'エラー処理
        Finally
            GlobalUnlock(PtrDMIn)
            GlobalFree(PtrDMIn)
            GlobalUnlock(PtrDMOut)
            GlobalFree(PtrDMOut)

            If Not hPrinter.Equals(IntPtr.Zero) Then
                ClosePrinter(hPrinter)
            End If
        End Try

    End Function

    Public Shared Sub SaveToBinaryFile( _
                    ByVal obj As PrinterSettings, ByVal path As String)

        Dim PtrDevMode As IntPtr
        Dim testDevmode As New DEVMODE
        Dim bytReadBuf(2036) As Byte

        PtrDevMode = obj.GetHdevmode(obj.DefaultPageSettings)
        Dim globalDevOut As IntPtr = GlobalLock(PtrDevMode)
        testDevmode = CType(Marshal.PtrToStructure(globalDevOut, _
                                            GetType(DEVMODE)), DEVMODE)
        Dim lngSaveSize As Long = _
                         testDevmode.dmSize + testDevmode.dmDriverExtra
        ReDim bytReadBuf(lngSaveSize)
        Marshal.Copy(globalDevOut, bytReadBuf, 0, lngSaveSize)
        GlobalUnlock(PtrDevMode)
        GlobalFree(PtrDevMode)

        Dim fs As New FileStream("c:\\test.obj", _
                                FileMode.Create, FileAccess.Write)
        Dim bw As New BinaryWriter(fs)
        bw.Write(bytReadBuf, 0, lngSaveSize)
        bw.Close()
        fs.Close()

    End Sub

    Public Shared Function LoadFromBinaryFile(ByVal path As String) _
                                                      As PrinterSettings
        Dim dsp As New PrinterSettings()
        Dim testDevmode As New DEVMODE
        Dim bytReadBuf(2036) As Byte
        Dim PtrDevMode As IntPtr

        Dim fs As New FileStream(path, FileMode.Open, FileAccess.Read)
        Dim br As New BinaryReader(fs)


        PtrDevMode = dsp.GetHdevmode(dsp.DefaultPageSettings)
        Dim globalDevOut As IntPtr = GlobalLock(PtrDevMode)
        Dim ptr As IntPtr = _
                  Marshal.AllocHGlobal(Marshal.SizeOf(testDevmode))

        Try
            ReDim bytReadBuf(Marshal.SizeOf(testDevmode))
            bytReadBuf = br.ReadBytes(Marshal.SizeOf(testDevmode))

            Marshal.Copy(bytReadBuf, 0, ptr, Marshal.SizeOf(testDevmode))
            testDevmode = _
                DirectCast(Marshal.PtrToStructure(ptr, GetType(DEVMODE)), _
                           DEVMODE)
            Dim lngSaveSize As Long = _
                        testDevmode.dmSize + testDevmode.dmDriverExtra
            fs.Position = 0
            ReDim bytReadBuf(lngSaveSize)
            bytReadBuf = br.ReadBytes(lngSaveSize)

            Marshal.Copy(bytReadBuf, 0, globalDevOut, lngSaveSize)
            dsp.DefaultPageSettings.SetHdevmode(globalDevOut)
            dsp.SetHdevmode(globalDevOut)

        Catch ex As Exception
        Finally
            GlobalUnlock(PtrDevMode)
            GlobalFree(PtrDevMode)
            If IntPtr.Zero <> ptr Then
                Marshal.FreeHGlobal(ptr)
            End If
            br.Close()
            fs.Close()
        End Try

        Return dsp

    End Function