Hi guys, maybe you can help me with this.

I have a spreadsheet on a userform. When I try Printform, the form get
printed OK, but the spreadsheet on it comes out reduced so much tha
it's illegible.
This is the script I'm using;


code:
--------------------------------------------------------------------------------

Sub print_savings()
Dim prl As Long, prh As Long
prl = UserForm11.Spreadsheet1.Range("A500").End(xlUp).Ro w
prh = UserForm11.Spreadsheet1.Range("A1:A" & prl).Height
UserForm11.Height = prh + 488
UserForm11.Image1.Height = prh
UserForm11.Spreadsheet1.Height = prh

UserForm11.Spreadsheet1.ActiveWindow.EnableResize = True
UserForm11.Spreadsheet1.Height = prh
UserForm11.PrintForm
End Sub

--------------------------------------------------------------------------------





Any ideas

--
Message posted from http://www.ExcelForum.com