error signature

[gary at protocol]

Running Word 2003 SP1, macro that changes the activeprinter. If I change the
default printer or run another macro that switches the printer, get following
error:
error signature
appname winword.exe app/ver 11.0.6359.0 appstamp 40c8b025
Modname winword.exe Mod/ver 11.0.6359.0 Modstamp 40c8b025
debug 0 Offset 0002cc75
here is the macro:
PrinterVar = ActivePrinter
MyString = Mid(PrinterVar, 1, 10)
If UCase(MyString) = "\\IBM235\L" Then
With ActiveDocument.PageSetup
Options.DefaultTray = "Tray 2"
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
End With

ActiveDocument.PrintOut
With ActiveDocument.PageSetup
Options.DefaultTray = "Tray 1"
.FirstPageTray = wdPrinterAutomaticSheetFeed
.OtherPagesTray = wdPrinterAutomaticSheetFeed
End With
endif

If I change the default printer then click on this macro, I'll get the error
signature.
Any help would be appreciated
Thanks
Gary

 

[TF]

Gary

You may get one of the VBA gurus to come through here and see this, but it
would get quicker response if posted to one of the Word VBA groups.



message : Running Word 2003 SP1, macro that changes the activeprinter. If I change
the
: default printer or run another macro that switches the printer, get
following
: error:
: error signature
: appname winword.exe app/ver 11.0.6359.0 appstamp 40c8b025
: Modname winword.exe Mod/ver 11.0.6359.0 Modstamp 40c8b025
: debug 0 Offset 0002cc75
: here is the macro:
: PrinterVar = ActivePrinter
: MyString = Mid(PrinterVar, 1, 10)
: If UCase(MyString) = "\\IBM235\L" Then
: With ActiveDocument.PageSetup
: Options.DefaultTray = "Tray 2"
: .FirstPageTray = wdPrinterDefaultBin
: .OtherPagesTray = wdPrinterDefaultBin
: End With
:
: ActiveDocument.PrintOut
: With ActiveDocument.PageSetup
: Options.DefaultTray = "Tray 1"
: .FirstPageTray = wdPrinterAutomaticSheetFeed
: .OtherPagesTray = wdPrinterAutomaticSheetFeed
: End With
: endif
:
: If I change the default printer then click on this macro, I'll get the
error
: signature.
: Any help would be appreciated
: Thanks
: Gary
:
: