Edward S Zuris
edzedz at comcast.net
Wed Apr 30 11:49:21 CDT 2008
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.... > ;-) -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com