[AccessD] ROTFL

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



More information about the AccessD mailing list