bw5727
01-21-2019, 12:28 PM
Hi there,
I am trying to find a solution to have the same bottom 2 rows of my worksheet print on every page printed for that worksheet.
I've done some research on the options to have a solution similar to print titles and can't find one that works.
The standard footer does not provide enough flexibility with styling, an image isn't responsive to when the columns widths are changed, and I can't locate VBA code that makes this work. Here's what I tried (maybe I input/executed it wrong though):
Sub MyFooter()
Dim StrFtr As String, Rng As Range, Sh As Worksheet, c As Range
Set Sh = Worksheets("Sheet5")
Set Rng = Sh.Range("A55:J55")
For Each c In Rng
StrFtr = StrFtr & c & " "
Next c
ActiveSheet.PageSetup.LeftFooter = StrFtr
End Sub
The rows I want reflected at the bottom of each page simply have a color fill and image that spans columns A-J.
Any help you can provide would be outstanding!
I am trying to find a solution to have the same bottom 2 rows of my worksheet print on every page printed for that worksheet.
I've done some research on the options to have a solution similar to print titles and can't find one that works.
The standard footer does not provide enough flexibility with styling, an image isn't responsive to when the columns widths are changed, and I can't locate VBA code that makes this work. Here's what I tried (maybe I input/executed it wrong though):
Sub MyFooter()
Dim StrFtr As String, Rng As Range, Sh As Worksheet, c As Range
Set Sh = Worksheets("Sheet5")
Set Rng = Sh.Range("A55:J55")
For Each c In Rng
StrFtr = StrFtr & c & " "
Next c
ActiveSheet.PageSetup.LeftFooter = StrFtr
End Sub
The rows I want reflected at the bottom of each page simply have a color fill and image that spans columns A-J.
Any help you can provide would be outstanding!