Print Macro

howard

Well-known Member
Joined
Jun 26, 2006
Messages
5,665
Office Version
  1. 2019
Platform
  1. Windows
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


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
 

Some videos you may like

Excel Facts

Waterfall charts in Excel?
Office 365 customers have access to Waterfall charts since late 2016. They were added to Excel 2019.

Watch MrExcel Video

Forum statistics

Threads
1,114,367
Messages
5,547,499
Members
410,797
Latest member
mlfuson
Top