FIX: Printer May Lose Font Attributes (168744)

RESOLUTION

• Do not use the line:

  Printer.Font = ""
  
  					

  This normally clears font details.
• Instead of using:

  Printer.font = <font name>
  
  					

  Use:

  Dim F as New StdFont
  F.Name = <font name>
  F.Size = <size>
  Set Printer.Font = F
  
  					

  For additional information, click the article number below to view the article in the Microsoft Knowledge Base:

  194323 PRB: Setting Printer.Font.Size with StdFont Gives Wrong Values

• Alternatively, you can use:

  Dim x As Single
  x = Printer.CurrentX
  Printer.Print " ";  'initialize the printer object
  Printer.CurrentX = x
  Printer.FontName = "Arial"
  Printer.FontSize = 10
  					

• If the problem occurs when using the NewPage method, re-specify the font information at the beginning of each page as in the following example:

  Printer.Print ""  'Reset printer
  Printer.Font = ""
  Printer.FontName = "Arial"
  Printer.FontSize = 10
  
  Printer.Print "This is a test using " & Printer.Font
  Printer.NewPage
  Printer.FontName = "Arial"
  Printer.Print "this is page two"
  Printer.EndDoc