WHICH???
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Mohammed Muneer
Sent: Wednesday, May 09, 2012 8:52 AM
To: excel-macros@googlegroups.com
Subject: RE: $$Excel-Macros$$ Table data fit the page size..(auto)
Ya, u r right.
Regards,
Muneer,
CC
PM
To: excel-macros@googlegroups.com
Subject: RE: $$Excel-Macros$$ Table data fit the page size..(auto)
Ya, but it doesn't zoom to the margin, and fit all the four sides.
Regards,
Muneer,
CC
I see you already have it fit to page when printed -
Do you mean
Are you talking about fitting when viewing or printing.
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Mohammed Muneer
Sent: Tuesday, May 08, 2012 11:32 PM
To: excel-macros@googlegroups.com
Subject: RE: $$Excel-Macros$$ Table data fit the page size..(auto
Hi,
Try below codes,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
With Worksheets(1).PageSetup
.LeftMargin = Application.InchesToPoints(0.05)
.RightMargin = Application.InchesToPoints(0.05)
.TopMargin = Application.InchesToPoints(0.05
Ya, but it doesn't zoom to the margin, and fit all the four sides.
Regards,
Muneer,
CC
I see you already have it fit to page when printed -
Do you mean you want to have the table forced into the shape of the page
to completely fill the page?
If so, I think you wil
I see you already have it fit to page when printed -
Do you mean you want to have the table forced into the shape of the page to
completely fill the page?
If so, I think you will need a macro, and it could be a bit tricky.
You currently have a macro adjusting the margins in the
Workshe
Put this in your sheet module. If you select the range it will be small so I
think you only want columns??
Private Sub Worksheet_Activate()
'Range("A1:g41").Select
Columns("a:g").Select
Application.ActiveWindow.Zoom = True
Range("a1").Select
End Sub
Don Guillett
Microsoft MVP Excel
SalesAid Soft
