Carrie Miles
asked on
Run-time error 4608 value out of range
First, I am running in a citrix environment with Word 2000.
I created macros for printing to different trays, for instance, page 1 will print from tray 3 and all other pages will print from tray 1.
One user will not work, I receive Run-Time Error '4608': Value Out of Range.
Here is the macro:
Sub scopier()
'
' scopier Macro
' Macro recorded 9/9/2007 by BAH
varDefaultPrinter = ActivePrinter
'
ActivePrinter = "\\BBKW1NOTES\Copier_4045 (Small Copier in Mail Room)"
With ActiveDocument.PageSetup
.FirstPageTray = 2
.OtherPagesTray = 1
End With
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
ActivePrinter = varDefaultPrinter
With ActiveDocument.PageSetup
.FirstPageTray = 1
.OtherPagesTray = 1
End With
End Sub
It's not liking the following line:
With ActiveDocument.PageSetup
.FirstPageTray = 2
I don't understand why on one person's it doesn't work but all other user's are ok, since we are running in a Citrix enviroment? Any ideas?
Thank you in advance
I created macros for printing to different trays, for instance, page 1 will print from tray 3 and all other pages will print from tray 1.
One user will not work, I receive Run-Time Error '4608': Value Out of Range.
Here is the macro:
Sub scopier()
'
' scopier Macro
' Macro recorded 9/9/2007 by BAH
varDefaultPrinter = ActivePrinter
'
ActivePrinter = "\\BBKW1NOTES\Copier_4045 (Small Copier in Mail Room)"
With ActiveDocument.PageSetup
.FirstPageTray = 2
.OtherPagesTray = 1
End With
Application.PrintOut FileName:="", Range:=wdPrintAllDocument,
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages,
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
ActivePrinter = varDefaultPrinter
With ActiveDocument.PageSetup
.FirstPageTray = 1
.OtherPagesTray = 1
End With
End Sub
It's not liking the following line:
With ActiveDocument.PageSetup
.FirstPageTray = 2
I don't understand why on one person's it doesn't work but all other user's are ok, since we are running in a Citrix enviroment? Any ideas?
Thank you in advance
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.