Hello Everyone
Does anyone know of a vba way to evaluate the existing font size then maximise the font for printing or zoom prints for print purposes for each workbook.sheet in order to "expandtofit" to an A4 sheet 1X page wide and how ever many pages long printing in layout for "Landscape", regardless of the amount of rows within a workbook, at the moment the set up I have just loops loops through each worksheet and prints each sheet regardless of size, so sometimes the printouts are really too small to read for the end users and other times they are fine depending on the amount of rows on each worksheet. basically so the prints are as large as can be and use up the whole page(A4)
Does anyone know of a vba way to evaluate the existing font size then maximise the font for printing or zoom prints for print purposes for each workbook.sheet in order to "expandtofit" to an A4 sheet 1X page wide and how ever many pages long printing in layout for "Landscape", regardless of the amount of rows within a workbook, at the moment the set up I have just loops loops through each worksheet and prints each sheet regardless of size, so sometimes the printouts are really too small to read for the end users and other times they are fine depending on the amount of rows on each worksheet. basically so the prints are as large as can be and use up the whole page(A4)
Code:
Sub OutP_LoopWorkbookSheets()
Dim WS_Count As Integer
Dim I As Integer
' Set WS_Count equal to the number of worksheets in the active
' workbook.
WS_Count = ActiveWorkbook.Worksheets.Count
' Begin the loop.
For I = 1 To WS_Count
'I need the code for large prints vba needed here.(fit to page)
'
ActiveWorkbook.Worksheets(I).PrintOut
Else
End If
Next I
End Sub