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