Microsoft KB Archive/167735

From BetaArchive Wiki
< Microsoft KB Archive
Revision as of 11:03, 21 July 2020 by X010 (talk | contribs) (Text replacement - """ to """)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Knowledge Base


FIX: Setting Printer to Item in the Printers Collection Fails

Article ID: 167735

Article Last Modified on 9/1/2006



APPLIES TO

  • Microsoft Visual Basic 5.0 Control Creation Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition



This article was previously published under Q167735

SYMPTOMS

Attempting to set the default printer to an object variable has no effect. For instance, given a system with more than one printer installed, the following code will not change the default printer:

   Private Sub Form_Load()
       Dim Prt As Printer
       For Each Prt In Printers
      If Not Prt Is Printer Then
            Set Printer = Prt
         Exit For
      End If
       Next

      Printer.Print "Hi, Mom"
      Printer.EndDoc
   End Sub
                

The expected behavior is that the document should print to the first non- default printer found in the printers collection.

The actual behavior is that the document prints to the original default printer.

RESOLUTION

To resolve this problem, upgrade to Visual Basic 5.0 Service Pack 2 or later.

To work around this problem, progammatically change the default printer for the system. For additional information about how to change the default printer, click the article number below to view the article in the Microsoft Knowledge Base:

266767 HOWTO: Set Which Printer Is the System Default Printer


NOTE: This workaround changes the default printer for all applications that are running. It is recommended that you change the default printer back to the original setting after you finish printing.

STATUS

Microsoft has confirmed that this is a bug in the Microsoft products that are listed at the beginning of this article.

This bug was corrected in Visual Studio 97 Service Pack 2.

For more information on the Visual Studio 97 Service Pack 2, please see the following articles in the Microsoft Knowledge Base:

170365 INFO: Visual Studio 97 Service Packs - What, Where, and Why


For a list of the Visual Basic 5.0 bugs that were fixed in the Visual Studio 97 Service Pack 2, please see the following article in the Microsoft Knowledge Base:

171554 INFO: Visual Basic 5.0 Fixes in Visual Studio 97 Service Pack 2


REFERENCES

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

266767 HOWTO: Set Which Printer Is the System Default Printer


For additional information on determining which 32-Bit for Windows NT 3.51, Windows NT 4.0 and Windows 95, click the article number below to view the article in the Microsoft Knowledge Base:

189249 HOWTO: Determine Which 32-Bit Windows Version Is Being Used



Additional query words: setting default printer

Keywords: kbbug kbfix kbprint kbvs97sp2fix KB167735