Results 1 to 5 of 5
  1. #1
    4 Star Lounger
    Join Date
    Jun 2001
    Location
    Sacramento, California, USA
    Posts
    491
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Default Report Zoom (WINXP/Access 2003 SP-1)

    I have 1 line of code in my reports Form_Load:
    Docmd.Maximize

    When my reports open, they open maximized, but in "FIT" view (instead of 100%)

    I cannot find the option to have the reports default to 100%.
    (They do open Maximized, but not @ 100%)

    Can anyone tell me where this setting is located?

    I can't imagine having to use code to individually open the reports at 100%.
    (Docmd.RunCommand acZoom100 etc)

    I am using WINXP and Access 2003.

    Thanks!
    Michael

  2. #2
    Super Moderator
    Join Date
    Jun 2002
    Location
    Mt Macedon, Victoria, Australia
    Posts
    3,993
    Thanks
    1
    Thanked 45 Times in 44 Posts

    Re: Default Report Zoom (WINXP/Access 2003 SP-1)

    In 2003 Reports have an AutoResize property that defaults to Yes.

    If you set this to No the reports should do what you want.

    I don't think you need the Maximize command.
    Regards
    John



  3. #3
    4 Star Lounger
    Join Date
    Jun 2001
    Location
    Sacramento, California, USA
    Posts
    491
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Default Report Zoom (WINXP/Access 2003 SP-1)

    That's the setting !!

    I converted many databases to 2003 from 97. That's 100's of reports.

    Will I have to set each and every report's AutoResize property individually? (OYYY!!)

    Thanks Mr. Hutchison for the help !

    Michael

  4. #4
    Super Moderator
    Join Date
    Jun 2002
    Location
    Mt Macedon, Victoria, Australia
    Posts
    3,993
    Thanks
    1
    Thanked 45 Times in 44 Posts

    Re: Default Report Zoom (WINXP/Access 2003 SP-1)

    Here is a function that should :

    * Loop through each report and, Open in design view, set the property, then save and close it.

    I suggest you backup the db before running it just in case.

    Function AllReports()
    Dim strName As String
    Dim n As Long
    If CurrentProject.AllReports.Count > 0 Then
    For n = CurrentProject.AllReports.Count - 1 To 0 Step -1
    strName = CurrentProject.AllReports.Item(n).Name

    DoCmd.OpenReport strName, acViewDesign
    Reports(strName).AutoResize = False
    DoCmd.Close acReport, strName, acSaveYes

    Next n
    End If

    End Function
    Regards
    John



  5. #5
    4 Star Lounger
    Join Date
    Jun 2001
    Location
    Sacramento, California, USA
    Posts
    491
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Default Report Zoom (WINXP/Access 2003 SP-1)

    WOW !!

    Thank you so much!!

    I really appreciate you sharing your knowledge with us.

    Sincerely,
    Michael Abrams

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •