Now, with a new document, when I run the script, it gives me this error: Run-time error '4608': Value out of range This occurs when the code executes the DifferentFirstPageHeaderFooter property The larger ones have more than the smaller ones. Our printer is an HP > Laserjet 4250. > > My problem is this. By joining you are opting in to receive e-mail. http://codecove.net/microsoft-visual/microsoft-visual-basic-runtime-error-537.html
It seems like you used a recorded macro to build this code. When I try to Debug > > it, it will continually error out on any of the lines under "With > > ActiveDocument.PageSetup". > > > > I would sincerely appreciate 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. Similar Threads run-time error '4608' value out of range grant thomas, Aug 15, 2003, in forum: Word VBA Replies: 0 Views: 752 grant thomas Aug 15, 2003 Run-time Error '4608' Value http://www.office-forums.com/threads/run-time-error-4608-value-out-of-range-error.1873247/
Not the answer you're looking for? If you don't want all the details skip to the second to last line. With ActiveDocument .PageSetup.DifferentFirstPageHeaderFooter = True .Sections(1).Footers(wdHeaderFooterFirstPage) _ .Range.InsertBefore _ "Written by Kate Edson" End With Use the OddAndEvenPagesHeaderFooter property with the PageSetup object to specify different odd and even page headers I found this documentation in Word: Use the DifferentFirstPageHeaderFooter property with the PageSetup object to specify a different first page.
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 > DiCanio via OfficeKB.com, Mar 8, 2005, in forum: Word VBA Replies: 9 Views: 445 Bodiller Jun 30, 2005 Run-time error '4608' , Mar 10, 2005, in forum: Word VBA Replies: 0 Regards, Matthew Linnett 0 LVL 76 Overall: Level 76 MS Word 65 Message Active today Expert Comment by:GrahamSkan2012-10-15 Thanks. 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
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 Comment underneath if this suggestion does not fix your problem. .BookFoldPrinting = False .BookFoldRevPrinting = False .BookFoldPrintingSheets = 1 share|improve this answer answered Mar 26 at 18:42 Floam 116110 Hot Network Questions Sorting string column Qgis You use me as a weapon Why/when do we have to call super.ViewDidLoad? check this link right here now The normal value for line-pitch seems to be 360 in the XML for (A4 Paper).
The following is my updated code, however it still doesn't work. You'll be able to ask questions about MS Office or chat with the community and help others. We > have Word 2003 and our printer is an HP Laserjet 4250. > > Selection.WholeStory > With ActiveDocument.PageSetup > .FirstPageTray = 262 > .OtherPagesTray = 260 > End With > About Us We're a friendly discussion community for Microsoft Office help and support.
Add Stickiness To Your Site By Linking To This Professionally Managed Technical Forum.Just copy and paste the BBCode HTML Markdown MediaWiki reStructuredText code below into your site. VBA Visual Basic http://windowssecrets.com/forums/showthread.php/91528-run-time-error-4608-(English-Word-2003) This problem recently came up in a document and in my testing I removed the one an only "section break next page" and the macro worked. ActiveDocument.PageSetup.LinesPage = 38 'achieves the same as all the above but is a little bit easier. Do you have any variables that have exceeded their boundaries?
Unique representation of combination without sorting Age of a black hole Detecting harmful LaTeX code How does a Dual-Antenna WiFi router work better in terms of signal strength? this contact form Generated Thu, 20 Oct 2016 17:58:01 GMT by s_wx1011 (squid/3.5.20) MenuExperts Exchange Browse BackBrowse Topics Open Questions Open Projects Solutions Members Articles Videos Courses Contribute Products BackProducts Gigs Live Careers Vendor And more importantly, how to fix it? Stay logged in Welcome to Office Forums!
Rich. . The Function so I could use Interop and execute it from a VS app. –dbasnett Mar 21 at 23:55 Do the documents that fail have multiple sections? –Comintern Mar If you use styles a lot, you've probably balled your fist more often than not when working with the ribbon. have a peek here There are several documents that use this macro.
Member Login Remember Me Forgot your password? I was just about to ask for some help to achieve this in a macro when it struck me I can record a macro. Judesman posted Oct 13, 2016 page layout and print layout differs msnarayanan posted Oct 9, 2016 saveas macro help higguns posted Oct 9, 2016 How to create skip pattern in access
The code works in 2003, 2007 and 2010 but in 2013 I get "Run-time error '4608': Value out of range" at the point the code attempts to add a table to 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 Search Forums Show Threads Show Posts Tag Search Advanced Search Go to Page... Adding Views - VS Adds Scaffolding and NuGets SDL Web 8 Audience Manager issue Where are sudo's insults stored?
Welcome to the Microsoft Office Forums where you can ask questions or find answers on anything related to Word, Excel, Outlook, Access or any of the other Office applications. This still didn't help me write a macro that worked. Code: ' ============================================================================ ' === Remove First Page Headers and Footers, and set Odd / Even footers === ' ============================================================================ ActiveWindow.ActivePane.View.Type = wdPrintView Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Name:="" ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter Check This Out Sub PlainPrint_B() Dim sec as Section ' ' PlainPrint-B Macro ' Prints to Aficio 2075-B, Plain paper ' ' Get active/default printer.
Sometime's my letter has different margins, etc. > (I'm assuming this is the problem) and because of this I get a > Run-time error '4608: Value out of range error. Players Characters don't meet the fundamental requirements for campaign Should I record a bug that I discovered and patched? Posting Guidelines Promoting, selling, recruiting, coursework and thesis posting is forbidden.Tek-Tips Posting Policies Jobs Jobs from Indeed What: Where: jobs by Link To This Forum! Did this get down voted? –dbasnett Mar 22 at 1:06 If you post the doc, I'll take a look at it. –Floam Mar 22 at 1:38 | show 7
Follow-Ups: Re: PageSetup + Section Breaks = Value out of range Run-time Error 4608 From: Russ RE: PageSetup + Section Breaks = Value out of range Run-time Error 46 From: periodic