Private SettingsInv As New PrinterSettings
  Private SettingsDoc As New PrinterSettings
 
  Private Sub SettingsSave(ByVal filename As String, ByVal Settings As _
    PrinterSettings)
    Dim printer As New ClassPrinter()
    printer.CurrentPrinterSettings = Settings
    Dim data As Stream = File.Create(filename)
    Dim ser As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
    ser.Serialize(data, printer)
    data.Close()
  End Sub
 
  Private Sub SettingsRead(ByVal filename As String, ByRef Settings As _
    PrinterSettings)
    Dim printer As New ClassPrinter()
    Dim data As Stream = File.OpenRead(filename)
    Dim ser As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
    printer = CType(ser.Deserialize(data), ClassPrinter)
    data.Close()
    Settings = printer.CurrentPrinterSettings
  End Sub