shrug-l: Default printer question

John Marquez
Fri, 14 Jan 2005 08:04:52 -0500

To set the default printer in Word 2002 (for all applications!) go to
tools|Macro|Visual Basic Editor. Right-click on Normal, insert|module
and insert the following code:
Public Sub AutoExec()
   Application.ActivePrinter = "HP Business Inkjet 2600 PS"
End Sub
Word will run this code when it starts up.

Here's vb script that will set the default printer and run a program.
Copy and paste it into a text editor and save as .vbs, doubleclick to

' VBScript to set the local Default Printer
' Guy Thomas February 2004.
' ******************************
Option Explicit
Dim objPrinter
Set objPrinter = CreateObject("WScript.Network") 
objPrinter.SetDefaultPrinter "HP LaserJet 4100 PCL 6"
Set objPrinter = Nothing
' Added Run Program Code
' John Marquez Jan 2005
Dim oShell
Set oShell = WScript.CreateObject ("")
"H:\\ClipShapeExport2dxf\\LidarClipping\\lidarclipper122504.apr", 0,
Set oShell = Nothing

John M

John Marquez
GIS Specialist II
Tallahassee/Leon County MIS/GIS
Leon County Courthouse
301 S. Monroe Street  P3 Level
Tallahassee, Fl. 32301

>>> "Jay Johnson" <> 1/13/2005 2:21:09 PM
Does anyone know if it is possible to set different default printers
an application-by-application basis?  It would be great to have a
format plotter set as the default printer in ArcGIS but have a
set as default for Word and Excel.

I know I'm not the only one who has sent Word documents to the plotter
by accident...

Jay Johnson
Leon County Public Works
Tallahassee/Leon County Interlocal GIS
(850) 488-8003
SHRUG-L mailing list