Visual Basic Runtime Error 4608
We > > have Word 2003 and our printer is an HP Laserjet 4250. > > > > Selection.WholeStory > > With ActiveDocument.PageSetup > > .FirstPageTray = 262 > > .OtherPagesTray RE: Run-time Error 4608 - value out of range Word XP RobBroekhuis (TechnicalUser) 24 Nov 03 10:53 Maybe the active printer is a different one now?If you go into debug mode Many thanks, John Code: Sub ReportGenerate() ' Variable declarations Dim WordApp As Object Dim i As Integer Dim SaveAsName As String Dim TableCount As Integer TableCount = 0 Dim rng As 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. check over here
Now in a healthy document this setting is the same in each section throughout the document. This comprehensive step-by-step guide will help get your database-driven ASP.NET web site up and running in no time.. Solution This happens when you have more characters before the start of the variable field in the footer than there are characters in the main template. (If there is text in Office / Productivity Office Suites-Other MS Office MS Word How to get a free trial of Office 365 with the Office 2016 desktop applications Video by: Joe Office 365 is currently http://www.office-forums.com/threads/run-time-error-4608-value-out-of-range-error.1873247/
Microsoft Visual Basic Runtime Error 4608
Enroll in a course and start learning today. What is causing this runtime error. ActiveDocument.PageSetup.LinesPage = 38 'achieves the same as all the above but is a little bit easier.
Does it make sense for these space ships to have turrets? I can then comment that out and it will continue past that, but then if those two lines don't get processed the rest of the script doesn't insert the header/footer information The system returned: (22) Invalid argument The remote host or network may be down. Sub PlainPrint_B() Dim sec as Section ' ' PlainPrint-B Macro ' Prints to Aficio 2075-B, Plain paper ' ' Get active/default printer.
This page has been accessed 2,934 times. Runtime Error 4608 When Printing All Rights Reserved. Below is the text of the macro Sub PlainPrint_B() ' ' PlainPrint-B Macro ' Prints to Aficio 2075-B, Plain paper ' ' Get active/default printer. Many of the printer drivers do not use numbers from the wdPaperTray enumeration.
About Us We're a friendly discussion community for Microsoft Office help and support. Password Home Register Calendar Today's Posts FAQ Free Publications Search Xtreme Visual Basic Talk > Legacy Visual Basic (VB 4/5/6) > VBA / Office Integration > Word, PowerPoint, Outlook, and Other The normal value for line-pitch seems to be 360 in the XML for (A4 Paper). Why does Wolfram Alpha say the roots of a cubic involve square roots of negative numbers, when all three roots are real?
- The code would look something like this: Sub PlainPrint_B() Dim sec As Section ' ' PlainPrint-B Macro ' Prints to Aficio 2075-B, Plain paper ' ' Get active/default printer.
- Cancel Red Flag SubmittedThank you for helping keep Tek-Tips Forums free from inappropriate posts.The Tek-Tips staff will check this out and take appropriate action.
- I then copied the code from this test macro over the statements in my actual script and it seems to be working now.
- This > macro basically takes a 3 page letter, for example and formats the > first page to print from our letterhead tray (tray 1) and all other > pages to
- If so, please mark it as answered to close the question.
Runtime Error 4608 When Printing
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 We > have Word 2003 and our printer is an HP Laserjet 4250. > > Selection.WholeStory > With ActiveDocument.PageSetup > .FirstPageTray = 262 > .OtherPagesTray = 260 > End With > Microsoft Visual Basic Runtime Error 4608 But if you go into Start->Programs->Microsoft Office->Microsoft Office Tools->Microsoft Office 2003 Language Settings and add Korean, Chinese, or Japanese to the enabled languages you will get an extra tab called Document Join our community for more solutions or to ask questions.
Blaise This article describes how to use the Send to Mail Recipient command. Three of them are for business use: Office 365 Business Essentials, Office 365 Business, and Office 365 Business Premium. Microsoft Office Forums Forums > Archive > Newsgroup Archive > Word Newsgroups > Word VBA > Forums Forums Quick Links Search Forums Recent Posts Members Members Quick Links Notable Members Current http://pdctoday.com/runtime-error/visual-basic-runtime-error-53.php 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!
First Name Please enter a first name Last Name Please enter a last name Email We will never share this with anyone. Stay logged in Welcome to Office Forums! Colin Legg View Public Profile Visit Colin Legg's homepage!
Close this window and log in.
Yes, my password is: Forgot your password? Subscribe to our monthly newsletter for tech news and trends Membership How it Works Gigs Live Careers Plans and Pricing For Business Become an Expert Resource Center About Us Who We If the OddAndEvenPagesHeaderFooter property is True, you can return an odd header or footer by using wdHeaderFooterPrimary, and you can return an even header or footer by using wdHeaderFooterEvenPages. With ActiveDocument.Sections(1) .PageSetup.DifferentFirstPageHeaderFooter = True .Footers(wdHeaderFooterPrimary).PageNumbers.Add _ FirstPage:=True End With Doing it this way may help.
This macro basically takes a 3 page letter, for example and formats the first page to print from our letterhead tray (tray 1) and all other pages to print from bond DKTVAV posted Oct 27, 2016 at 4:00 PM Pixelated Floor Plan When Inserting Into Visio Marcus Zizzo posted Oct 26, 2016 Help with Duplicate Output Alias Error 'Exp1' DBA PJ posted Your cache administrator is webmaster. I was just about to ask for some help to achieve this in a macro when it struck me I can record a macro.
You would think that if the 'line-pitch' was visible in the XML then there would be some where in Word that you could set this value. To try and find the problem, I began recording a new test macro to just do these first few lines... Suggested Solutions Title # Comments Views Activity Printing issues with color, black and white and MS WORD 19 50 54d How to customise Office 2016 font settings with a GPO 3 When I try to Debug > > it, it will continually error out on any of the lines under "With > > ActiveDocument.PageSetup". > > > > I would sincerely appreciate
DiCanio via OfficeKB.com, Mar 8, 2005, in forum: Word VBA Replies: 9 Views: 459 Bodiller Jun 30, 2005 Run-time error '4608' , Mar 10, 2005, in forum: Word VBA Replies: 0 Get 1:1 Help Now Advertise Here Enjoyed your answer? ERROR The requested URL could not be retrieved The following error was encountered while trying to retrieve the URL: http://0.0.0.2/ Connection to 0.0.0.2 failed. All of the individual suite applications are supported here, so please post your question in the relevant section for help.
Next by Date: Re: ReplaceBookmark Previous by thread: Re: Problem with a user form command button Next by thread: RE: PageSetup + Section Breaks = Value out of range Run-time Error 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 Covered by US Patent. If it is section breaks how can I get the macro to work around/with them?
Not the answer you're looking for? JaredHess View Public Profile Find all posts by JaredHess #4 04-16-2008, 09:25 AM LadyAmazon Junior Contributor Join Date: Mar 2004 Location: New York Posts: 321 Hi, I am