Final Formatting

The last steps for the report involve some basic formatting tasks and then adding the subtotals. You can bold and right-justify the headings in Row 3. Set Rows 1-3 up so that the top three rows print on each page:

1 Do some basic formatting

1 Autofit columns, bold the headings, right-align Selection.Columns.AutoFit Range("A3").EntireRow.Font.Bold = True Range("A3").EntireRow.HorizontalAlignment = xlRight Range("A3:B3").HorizontalAlignment = xlLeft

' Repeat rows 1-3 at the top of each page WSR.PageSetup.PrintTitleRows = "$1:$3"

0 0

Post a comment