Private Sub BackupPrinterSet()
pdOldPrinterSet.iPaperSize = Printer.PaperSize
pdOldPrinterSet.iHeight = Printer.Height
pdOldPrinterSet.iWidth = Printer.Width
pdOldPrinterSet.strFontName = Printer.Font.Name
pdOldPrinterSet.iFontSize = Printer.Font.Size
pdOldPrinterSet.blBold = Printer.Font.Bold
pdOldPrinterSet.blItalic = Printer.Font.Italic
pdOldPrinterSet.iScaleMode = Printer.ScaleMode
pdOldPrinterSet.iOrientation = Printer.Orientation
End Sub |