Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Printing only one page 1

Status
Not open for further replies.

Ptrif

Technical User
May 19, 2003
106
US
There is probably a very easy solution to this but i am just not able to find it. I have a basic report that prints out but about an 1/8th of the report prints out on page 2, is there a setting i can set so that it shrinks it or fits it all onto one page?

Thanks for helping the blind

Paul
 
There is no easy solution. As a matter of fact, I have never seen any solution that would shrink a report to fit. Some printer drivers offer the ability to scale output.

Duane
MS Access MVP
Find out how to get great answers faq219-2884.
 
Have you tried increasing the number on your x and y grids. This will enable you to move your controls (textboxes, labels, etc.) with more precision. Maybe then you can squeeze more everything on one page. You can go up to 64. I hope this helps.
 
I have tried that, its a rather large form, it is the maximum 22 in length. I was just hoping that access had an option like word or excell where you could set it up to fit on one page, no matter how small it looked.....

Thanks for trying though!

Paul
 
I had written some code once that looped through every control on a report and modified the Top, Left, Height, Width, FontSize, ... properties by a percentage value. This was similar to code that resizes forms.

Duane
MS Access MVP
Find out how to get great answers faq219-2884.
 
You wouldnt happen to have that code laying around somewhere would you?
 
This was many years ago so it is long gone. The basics where in the On Open event of the report:
Code:
On Error Resume Next 'who cares
Dim sngScale as Single
sngScale = Val(Input("Enter A Scale Factor like .5",".5"))
Dim ctl as Control
For Each ctl in Me.Controls
   ctl.top = ctl.Top * sngScale
   ctl.Left = ctl.Left * sngScale
   ctl.Width = ctl.Width * sngScale
   ctl.Height = ctl.Height * sngScale
   ctl.FontSize = ctl.FontSize * sngScale
   'may be others
Next

Duane
MS Access MVP
Find out how to get great answers faq219-2884.
 
Thank you!!!!!!!!!!!!!!!!!!!! that worked great!!!!!!!!!! a star for you my friend!!!!!
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top