[AccessD] ROTFL

 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 jwcolby
Sent: Wednesday, April 30, 2008 9:08 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] ROTFL


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