This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
I am creating a macro on the same machine with the same document and the same printer definition.
Simply trying to print one copy of the doc using upper tray, 2nd and 3rd copies of the doc on middle tray. Runtime error 4608 out of range on bold line below:
Sub print2copies()
Selection.WholeStory
'green copy
ActiveDocument.PageSetup.FirstPageTray = wdPrinterUpperBin 'runtime error 4608 value out of range
ActiveDocument.PageSetup.OtherPagesTray = wdPrinterUpperBin
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
'white copy
ActiveDocument.PageSetup.FirstPageTray = wdPrinterMiddleBin
ActiveDocument.PageSetup.OtherPagesTray = wdPrinterMiddleBin
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
When I record the macro, it gives me this, and still errors 4608 as soon as it starts running the bold line below...
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
End If
.NameFarEast = ""
End With
With ActiveDocument.PageSetup
.LineNumbering.Active = False 'error 4608 out of range here
.Orientation = wdOrientPortrait
.TopMargin = InchesToPoints(0.5)
.BottomMargin = InchesToPoints(0.5)
.LeftMargin = InchesToPoints(0.75)
.RightMargin = InchesToPoints(0.75)
.Gutter = InchesToPoints(0)
.HeaderDistance = InchesToPoints(0.44)
.FooterDistance = InchesToPoints(0.5)
.PageWidth = InchesToPoints(8.5)
.PageHeight = InchesToPoints(11)
.FirstPageTray = wdPrinterUpperBin
.OtherPagesTray = wdPrinterUpperBin
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = True
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
A family of Microsoft word processing software products for creating web, email, and print documents.
Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.
Answer accepted by question author
Check first of all whether your document contains sections. If so, the code may need some adaptations to handle each section separately. Remove the section breaks, and you may be up and running again.
Both of the indicated lines are legal syntax and the values being assigned are valid. There shouldn't be any errors in either place.
Follow the troubleshooting procedures in http://support.microsoft.com/kb/921541. First try the Fixit button, and then test your macro. If it still errors, use the manual procedures -- EXCEPT put the "Delete the Word Data registry subkey" and "Delete the Word Options registry subkey" sections at the end instead of the beginning. That is, try renaming the Normal.dotm template first, and test the macro; if it still errors, disable any add-ins and test again. Leave the registry work for last, both because it's the least likely cause and because it's the most time-consuming.
No help yet, and Microsoft's automated service is asking me to post a request for more help...Thank you!