[AccessD] Quiet day?

 This might work in 2003 with printer object.

 = = = = = = = = = = = = = = = = = = =

   With Reports(<reportname>)
	 .Left = 0.5
	 .Right = 0.5
	 .Top = 0.75
	 .Bottom = 0.75
   End With 

 = = = = = = = = = = = = = = = = = = =
     What I am looking to.
 = = = = = = = = = = = = = = = = = = =

 This is what I am interested in, but code generated code
 always gives you something more.

    With ActiveDocument.PageSetup
        .Orientation = wdOrientPortrait
        .TopMargin = InchesToPoints(0.7)
        .BottomMargin = InchesToPoints(0.6)
        .LeftMargin = InchesToPoints(0.5)
        .RightMargin = InchesToPoints(0.4)
    End With

 from Michael Mattys:

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

   I am looking into Michael Mattys clue using Google.
   And found the following:
 
   http://msdn.microsoft.com/en-us/library/aa140014(office.10).aspx

   Gobal settings can be a wild ride, but why not.



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


Try

With Reports(<reportname>)
	.Left = 0.5
	.Right = 0.5
	.Top = 0.75
	.Bottom = 0.75
End With 

Charlotte Foust

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Edward S
Zuris
Sent: Wednesday, April 30, 2008 10:14 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Quiet day?


 Any vba examples ?

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


The report has the properties you need to set: top, bottom, left, right,
orientation and papersize.  What are you trying to do that requires
more?

Charlotte Foust 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Edward S
Zuris
Sent: Wednesday, April 30, 2008 9:32 AM
To: 'Access Developers discussion and problem solving'
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

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