Printer.FontName = "Courier New" Printer.FontSize = 8 Printer.FontItalic = False Printer.FontBold = False