Indicate The Row Number For Each Last Row In Each New Page Printed

I have this question for indentifying the last row (number) for each and every page to be printed.

As I am using a loop to determine the last row of the table in each print page, I am only able to do in "hard coded". And with this "hard-coded" row number, I can set bordering to the table so that table will not be printed without any border (for in between pages if table is more than a page)

But the problem is that I had discovered that once any other user start using wrap text, or even change the row height, the macro will still captures the pre-determined no. of rows to do the bordering (as shown in my code).

In my, I had restricted the zoom size so that the quotation will always be the same format. Hence, based on this control zoom, the printable page changes if the row height changes too.



With destSh.PageSetup
.PrintArea = "$A1:$H" & LastR
.PrintTitleRows = "$1:$21"
.Zoom = 62
' .FitToPagesWide = 1
' .FitToPagesTall = 8
.PrintErrors = xlPrintErrorsDisplayed
.RightFooter = "&8Last Saved : " & _
Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), _
"yyyy-mmm-dd hh:mm:ss")
.CenterFooter = "Page &P of &N"...................