[AccessD] Quiet day?

 Thanks for the clue.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Michael R
Mattys
Sent: Wednesday, April 30, 2008 8:52 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Quiet day?


There are these, but I'm pretty sure its for forms printing

        Application.SetOption "Left Margin", 0.5
        Application.SetOption "Right Margin", 0.5
        Application.SetOption "Top Margin", 0.5
        Application.SetOption "Bottom Margin", 0.5

Michael R. Mattys
MapPoint & Access Dev
www.mattysconsulting.com

----- Original Message ----- 
From: "Edward S Zuris" <edzedz at comcast.net>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, April 30, 2008 12:32 PM
Subject: Re: [AccessD] Quiet day?


>
> 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....
>  ;-)
> -- 
> John W. Colby
> www.ColbyConsulting.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com