'------------------------------------------------------ '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 Downloads In IE right-click and select 'Save Target As...' or in Netscape right-click and select 'Save Link As...'    View Plain Text  Not Available  Not Available