VBA/Excel/Access/Word/Excel/Worksheet Print Setting
<source lang="vb"> Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim myWorksheet As Worksheet Dim sFileName As String Dim sCompanyName As String sCompanyName = Worksheets("Profit").Range("A1").Value sFileName = "&F" "Code generating file name For Each myWorksheet In ThisWorkbook.Worksheets With myWorksheet.PageSetup .LeftFooter = sCompanyName .CenterFooter = "" .RightFooter = sFileName End With Next myWorksheet End Sub </source>
To print a defined area, center horizontally, with 2 rows as titles, in portrait orientation and fitted to page wide and tall - 1 copy
<source lang="vb">
Sub PrintRpt3()
With Worksheets("Sheet1").PageSetup .CenterHorizontally = True .PrintArea = "$A$3:$F$15" .PrintTitleRows = ("$A$1:$A$2") .Orientation = xlPortrait .FitToPagesWide = 1 .FitToPagesTall = 1 End With Worksheets("Sheet1").PrintOut
End Sub
</source>