Home > Runtime Error > Microsoft Visual Basic Runtime Error 4608

Microsoft Visual Basic Runtime Error 4608

Contents

I don't quite understand this bit. Just thought I should share that knowledged with you. When I initially created it, it ran fine on the initial document. There are several documents that use this macro. navigate here

Please try the request again. I tried using it and it did > have a window showing paper sizes, but I didn't really know what to > do with the information. 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)" On occasion on certain documents we get a runtime error of 4608 "Value out of range" and find that VB has stuck on ".FirstPageTray = wdPrinterAutomaticSheetFeed". http://stackoverflow.com/questions/36143325/word-macro-error-runtime-error-4608-value-out-of-range

Microsoft Visual Basic Runtime Error 4608

Thanks, Hypercat 0 LVL 76 Overall: Level 76 MS Word 65 Message Active today Expert Comment by:GrahamSkan ID: 174315462006-08-31 There is something of a problem in choosing the tray number. EDIT: The documents are here This is the latest version of the macro, which actually runs, but.... Our printer is an HP Laserjet 4250. Increment [ngStyle] attr using ngFor index?

I am not a VBA person. Each of the 41 Titlesgets some of the chapters. Privacy Policy Terms and Rules Help Popular Sections Word Outlook Excel Access Connect With Us Log-in Register Contact Us Forum software by XenForo™ ©2010-2014 XenForo Ltd. Number of pages in Title is 64, running total is 64.

Question has a verified solution. Runtime Error 4608 Value Out Of Range Sign Up Now! No variables are outside of boundaries that I'm aware of. http://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-mso_winother/run-time-error-4608-value-out-of-range/acabeda3-4af9-4cff-8521-37e94dfc5a85 The larger ones have more than the smaller ones.

Each of the 31,000'ish paragraphs (they are actually called 'Sections' in our world) are stored as XML. JaredHess View Public Profile Find all posts by JaredHess #2 04-14-2008, 05:11 PM Heyjoe Centurion Join Date: Nov 2006 Location: USA Posts: 171 Just a couple of thoughts. Geez. Here is the second version of the macro Function pagestuffB() As String ' ' Format for Publisher ' ' Dim rv As String rv = "" On Error GoTo ErrorHndlr: With

Runtime Error 4608 Value Out Of Range

I would sincerely appreciate some assistance since I really need to automate the page setups for documents. Title II <<--------------------------------------------------------------------<<<< Chap. 7 ........ >>>>------------------------------------------------->> Chap. 7 done 00:00:19.7 <<--------------------------------------------------------------------<<<< Chap. 8 .................................................................................................................................................. >>>>------------------------------------------------->> Chap. 8 done 00:01:19.2 <<--------------------------------------------------------------------<<<< Chap. 9 ..................................................... >>>>------------------------------------------------->> Chap. 9 done 00:01:44.3 <<--------------------------------------------------------------------<<<< Chap. Microsoft Visual Basic Runtime Error 4608 Posted by dbasnett on 3/21/2016 at 1:36 PM Versions - Visual Studio 2012, Office 2010. I have the document that failed and will provide it if needed.

What you may need to do when working with multiple documents whose layout you don't know is to first set all margins etc. check over here If you read articles published by MS Word MVPs you will see a common theme that they recommend working with the underlying objects instead of using Selection object and View.SeekView whenever This still didn't help me write a macro > that worked. > > Thanks anyway. > > "Jean-Guy Marcil" wrote: > >> LDMueller was telling us: >> LDMueller nous racontait que And I would agree with you to format each section individually.

To try and find the problem, I began recording a new test macro to just do these first few lines... Join & Ask a Question Need Help in Real-Time? It might be that his driver says the printer only has 1 tray. his comment is here strActivePrinter = Application.ActivePrinter 'Change the active printer to match local Aficio 2075-B ActivePrinter = "\\circe\Aficio 2075-B PCL6" For each sec in ActiveDocument.Sections

strActivePrinter = Application.ActivePrinter 'Change the active printer to match local Aficio 2075-B ActivePrinter = "\\circe\Aficio 2075-B PCL6" With ActiveDocument.PageSetup 'Auto Select Here I did not reproduce your issue on my side. >> As macropod has suggested to make some change in your macro. The program that consolidates them does so by creating Chapters by inserting the files that are then added to Titles.

Thanks anyway. "Jean-Guy Marcil" wrote: > LDMueller was telling us: > LDMueller nous racontait que : > > > Those are the constants that came up after recording the macro >

Similar Threads run-time error '4608' value out of range grant thomas, Aug 15, 2003, in forum: Word VBA Replies: 0 Views: 781 grant thomas Aug 15, 2003 Run-time Error '4608' Value Edited by dbasnett Monday, March 21, 2016 7:45 PM Monday, March 21, 2016 7:10 PM Reply | Quote 0 Sign in to vote Some of the PageSetup settingscan befinicky as to Thank you in advance 0 Comment Question by:cas_three Facebook Twitter LinkedIn https://www.experts-exchange.com/questions/22883932/Run-time-error-4608-value-out-of-range.htmlcopy LVL 11 Best Solution bycup Don't know anything about Citrix but it looks like an environment problem. By the way, you may be experiencing the same error message as the OP, but it is definitely a different problem.

For smaller documents the macro runs without error, for larger documents we receive the error in the subject line of this thread. strActivePrinter = Application.ActivePrinter 'Change the active printer to match local Aficio 2075-B ActivePrinter = "\\circe\Aficio 2075-B PCL6" For Each sec In ActiveDocument.Sections Perhaps it's a case that the particular user profile is corrupt. http://goglospex.com/runtime-error/runtime-error-80040e21-visual-basic.html Usually in Word on the Page Setup dialog there are 3 tabs Margins, Paper, Layout.