Macro Conversion

[Harv]

Hi, I hope you can help me out. I had a macro to control which printer tray
is used. When I upgraded from Word2000 to Word2003, the macro doesn't select
the proper tray. Any Suggestions would be appreciated. The code is below.

Sub MyPrint()
Dim sCurrentPrinter As String
aa = InputBox("How many copies would you like?", "Carrie's Macro", 3)
If aa = "" Or aa = 0 Then Exit Sub

sCurrentPrinter = ActivePrinter
Rem ActivePrinter = "Tektronix Phaser 860DP by Xerox"
With Options
.DefaultTray = "Tray 2"
End With
Application.PrintOut FileName:="", Copies:=aa
With Options
.DefaultTray = "Use printer settings"
End With
ActivePrinter = sCurrentPrinter
End Sub