Example Of Print Setup For The Active Sheet

less than 1 minute read

Example of Page Setup for the active sheet for printing example has a header, footer, narrow margins and the Column width to the page but not the rows.

' ==================================================================
' ## Example of Page Setup for the active sheet  for printing
'	 This example has a header, footer, narrow margins and
'	 fits the Column width to the page but not the rows
' ==================================================================
Sub ActiveSheet_PrintSetup()
	With ActiveSheet.PageSetup
		.PrintArea = ActiveSheet.UsedRange.Address
		.Orientation = xlLandscape
		.Zoom = False
		.FitToPagesWide = 1
		.FitToPagesTall = False
		.RightFooter = "&9" & "PAGE &P OF &N"
		.LeftMargin = Application.InchesToPoints(0.2)
		.RightMargin = Application.InchesToPoints(0.2)
		.TopMargin = Application.InchesToPoints(0.7)
		.BottomMargin = Application.InchesToPoints(0.7)
		.CenterHorizontally = True
	End With
End Sub