'------------------------------------------------------
'FIX: Printer May Lose Font Attributes
'Posted: July 1998
'Article ID: Q168744 
'From: Microsoft Technical Support 
'Sent by: "Robert L. Walsh" rlwalsh@capecod.net
'------------------------------------------------------
This article was sent to me by Bob as one that people
frequently have questions about. There are lots of great articles
at MS don`t miss them. This fix is for VB5, but should work for 
VB4 as well.

The information in this article applies to: 

*Microsoft Visual Basic Control Creation, Learning, Professional, and
Enterprise Editions for Windows, version 5.0 

SYMPTOMS

Printed documents have the wrong font or font size. 

CAUSE

The exact cause of this problem is not known. The symptoms indicate that
the Printer object loses font attribute information, such as font name or
size. 

RESOLUTION

Several methods have alleviated the problem during testing. To work around
the problem, try one or more of the following: 

*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

*If the problem occurs when using the NewPage method, respecify 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

STATUS

Microsoft has confirmed this to be a bug in the Microsoft products listed
in the applies to section at the beginning of this article. 

ADDITIONAL INFORMATION

Microsoft has received reports that documents printed with a generic font,
such as courier, instead of desired fonts. 

This problem has been reported under the following circumstances, but has
not been consistently reproduced: 

*Use of NewPage method. 
*Use of Printer.Font = "" 'used to reset font details. 
*Changes via code to page orientation or paper size. 

ADDITIONAL REFERENCES

MS Visual Basic online Help and Online Books. Also ARTICLE: Q171554
TITLE: Visual Basic 5.0 Fixes in Visual Studio 97 Service Pack 2