jwcolby
jwcolby at colbyconsulting.com
Wed Apr 30 11:07:35 CDT 2008
Still laughing, sorry. Oh sage wise one does not have an answer. It certainly looks like you have found a TON of stuff to set. Whether you can only set some of it... John W. Colby www.ColbyConsulting.com Edward S Zuris wrote: > Well when you catch your breath, > what is the answer O' wise sage. > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of jwcolby > Sent: Wednesday, April 30, 2008 8:40 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Quiet day? > > > ROTFL. > > John W. Colby > www.ColbyConsulting.com > > > Edward S Zuris wrote: >> Ok. Here is a challenge. >> >> Is there a VBA method under 10,000 lines of code >> to set the margins of an Access 2000 report ? >> >> = = = = = = = = = = = = = = = = = = = = = = = = = >> This is a script from Word 2000. >> = = = = = = = = = = = = = = = = = = = = = = = = = >> >> With ActiveDocument.PageSetup >> .LineNumbering.Active = False >> .Orientation = wdOrientPortrait >> .TopMargin = InchesToPoints(0.7) >> .BottomMargin = InchesToPoints(0.6) >> .LeftMargin = InchesToPoints(0.5) >> .RightMargin = InchesToPoints(0.4) >> .Gutter = InchesToPoints(0) >> .HeaderDistance = InchesToPoints(0) >> .FooterDistance = InchesToPoints(0) >> .PageWidth = InchesToPoints(8.5) >> .PageHeight = InchesToPoints(11) >> .FirstPageTray = wdPrinterDefaultBin >> .OtherPagesTray = wdPrinterDefaultBin >> .SectionStart = wdSectionNewPage >> .OddAndEvenPagesHeaderFooter = False >> .DifferentFirstPageHeaderFooter = False >> .VerticalAlignment = wdAlignVerticalTop >> .SuppressEndnotes = False >> .MirrorMargins = False >> .TwoPagesOnOne = False >> .GutterPos = wdGutterPosLeft >> End With >> >> = = = = = = = = = = = = = = = = = = = = = = = = = >> >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of jwcolby >> Sent: Wednesday, April 30, 2008 8:17 AM >> To: Access Developers discussion and problem solving >> Subject: [AccessD] Quiet day? >> >> >> Is there anybody out there.... >> ;-)