"Run-time error '9': Subscript out of range" error message when you use Visual Basic for Applications to search for and list available printers in Visio

Article translations Article translations
Article ID: 293921 - View products that this article applies to.
This article was previously published under Q293921
Expand all | Collapse all

SYMPTOMS

When you use Microsoft Visual Basic for Applications to search for and list available printers, you receive the following error message:
Run-time error '9':

Subscript out of range

CAUSE

No printer is defined on your computer.

RESOLUTION

If a local or network printer is available, you can add a printer to your system configuration. To do this, follow these steps:
  1. Click Start, point to Settings, and then click Printers.
  2. In the Printers folder, double-click Add Printer, and then follow the instructions in the wizard to install a printer.

STATUS

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

MORE INFORMATION

The following code can be used to search and list the available printers.
Application.AvailablePrinters() (1)
				
When there is no printer defined on your system, the code returns the error message that is mentioned in the "Symptoms" section of this article, instead of a string to inform you that no printers are defined.

If you omit the subscript altogether
Application.AvailablePrinters()
				
you receive the following error message:
Compile error:

Expected :=
The following code, which attempts to address the active printer, returns the string "Display" when there is no printer defined:
Application.ActivePrinter
				

Properties

Article ID: 293921 - Last Review: October 11, 2006 - Revision: 2.4
APPLIES TO
  • Microsoft Visio 2002 Standard Edition
  • Microsoft Visio 2002 Professional Edition
Keywords: 
kbprinters kbtshoot kbbug kberrmsg kbnofix KB293921

Give Feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com