🚀 go-pugleaf

take a look at this

http://www.wizardry.co.nz



"Development@SoftwareSuite.be" <development@softwaresuite.be> schreef in
bericht news:39DDB53B.4A692CF5@softwaresuite.be...
> pOSTmASTEr, please find the answer from Duane Hookom in the Access /
> Reports newsgroup below. It's a nice code snippet to 'resize', but I am
> not sure it will hold with a great many tables in the Relationships
> report. I don't have time right now, but I'll give it a go with a
> 70-tables db asap and come back with the test results.
>
> Good luck,
>
> Waldo Smets
> SoftwareSuite�
> Heverlee - LEUVEN
>
> (Niet toegelaten commerci�le boodschap: Wij zoeken momenteel nog 3
> enthousiaste programmeurs met minimaal 3 jaar ervaring in VBA Access.
> Werken in de allerbeste omstandigheden!
> Mail je CV met vermelding van telefoonnr..)
>
> Duane's reply:
>
> You can scale any report with the code listed below. The report may
> still
> think you have more pages than needed so select the number of pages
> based on
> the preview. The code basically cycles through all controls and changes
> their Left, Top, Height, Width, and font size of all the controls.
>
> Private Sub Report_Open(Cancel As Integer)
>    Dim sngScale As Single
>    Dim sngInches As Single
>    On Error Resume Next  'who cares about errs
>    sngInches = 6  'want report this wide
>    sngScale = (sngInches * 1440) / Me.Width 'figure the scale
>    Me.Width = Me.Width * sngScale 'probably does nothing
>    Me.Section(0).Height = Me.Section(0).Height * sngScale
>    Dim ctrl As Control
>    For Each ctrl In Me.Controls
>       ctrl.Top = ctrl.Top * sngScale
>       ctrl.Height = ctrl.Height * sngScale
>       ctrl.Width = ctrl.Width * sngScale
>       ctrl.Left = ctrl.Left * sngScale
>
>       If TypeOf ctrl Is TextBox Then
>          ctrl.FontSize = ctrl.FontSize * sngScale
>       End If
>       If TypeOf ctrl Is ListBox Then
>          ctrl.FontSize = ctrl.FontSize * sngScale
>       End If
>       If TypeOf ctrl Is Label Then
>          ctrl.FontSize = ctrl.FontSize * sngScale
>       End If
>    Next
> End Sub
>
>
>
> "Development@SoftwareSuite.be" wrote:
> >
> > Mmmm... interesting. The Print Relationships Add-In (built-in since 2000
> > version) gives us problems too... when the amount of tables is too
> > big... About all you can seem to do is setting the page layout to
> > landscape. When tables are numerous, even that doesn't help anymore.
> > Maybe 3rd party software can help, but Access development packages often
> > include a range of things you can easily program yourself, so there is
> > no point in buying the whole package....
> >
> > I will put the question on the MS newsgroups and see if anything comes
> > back....
> >
> > Good luck,
> >
> > Waldo Smets
> > SoftwareSuite�
> > Heverlee - LEUVEN
> >
> > (Niet toegelaten commerci�le boodschap: Wij zoeken momenteel nog 3
> > enthousiaste programmeurs met minimaal 3 jaar ervaring in VBA Access.
> > Werken in de allerbeste omstandigheden!
> > Mail je CV met vermelding van telefoonnr..)
> >
> > pOSTmASTEr wrote:
> > >
> > > How can I visualize en printout my relationships in Access97
> > > The problem is that my database is too big!!
> > > I already tried the AddIn 'Print Relationships' but no success
> > >
> > > TIA
> > >
> > > pOSTmASTEr