Page Settings

This code extract prints row 1 on each output page, adds some footers and restricts the print output to one page in width.

What's the point of this page? These are settings I frequently use - it's just handy having them here!

With ActiveSheet

	.PageSetup.PrintArea = "$A:$H"

	With .PageSetup
		.PrintTitleRows = "$1:$1"
		.PrintTitleColumns = ""

		.LeftHeader = ""
		.CenterHeader = ""
		.RightHeader = ""

		.LeftFooter = "&""Times New Roman,Italic""Source: &Z&F" & Chr(10) _
			& "Printed: &D at &T"
		.CenterFooter = ""
		.RightFooter = "&""Times New Roman,Italic""Page &P of &N"

		.Orientation = xlPortrait

		.Zoom = False
		.FitToPagesWide = 1
		.FitToPagesTall = False

	End With
End With

Published: 28-May-2005
Last edited: 01-Mar-2011 20:51