I have the following print Macro. The macro works fine, except the I want the Title row headings to Change
I want this title row below to appear in the first section up to row 20
Statement of Comprehensive Income for Br1 as at 31 August 2014 YTD % of Total Income Average Per Month
I want this title row below to appear from row 22 onwards
Detail Amount % of Total Expense Avg Per Month
I want this title row below to appear in the first section up to row 20
Statement of Comprehensive Income for Br1 as at 31 August 2014 YTD % of Total Income Average Per Month
I want this title row below to appear from row 22 onwards
Detail Amount % of Total Expense Avg Per Month
Code:
Sub Print_Income_Statement()
Sheets("Income Statement").Select
Dim LastRow As Long
LastRow = Sheets("Income Statement").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Income Statement").Select
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintGridlines = True
.PrintArea = "A2:E" & LastRow
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
.LeftHeader = "&D&T"
.CenterHeader = Format(Range("A1"), "mmm yyyy")
.Orientation = xlLandscape
End With
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
