VBA code to sum the row heights of every row in the Print_Area range of a worksheet

[Mauritz]

I am looking for VBA code to sum the row heights of every row in the Print_Area range of a worksheet please.

For example if the print range is 10 rows and each row is 15 points then the result will be 150 points (PS. The row heights differ on the various rows in the print range of each page, and there are numerous worksheet pages to be checked).

The second part of my problem is to improve this code so that it will also add the page margins and Print Titles to the above result.

I am using Excel 2016 on Windows 7 Professional

 

[KKaren]

I would use something like this, however I'm not sure what the Print_Area is exactly so I have used the UsedRange property of the worksheet instead.
Assuming that your data starts from the first row, a message with the total row height will pop-up on screen...

Sub test()

    Dim r As Long, lastrow As Long
    Dim TotalRowHeight As Double
    
    lastrow = Worksheets("Sheet1").UsedRange.Rows.Count
    
    For r = 1 To lastrow
        TotalRowHeight = TotalRowHeight + Rows(r).RowHeight
        
    Next r
    
    MsgBox TotalRowHeight
    

End Sub

 

[Mauritz]

Thanks for your reply. I am currently using the following code but the trick for me is to add the height of the page margins and the print titles as well.

Sub PageHeight()

    MsgBox "Page Height: " & ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea).Height

End Sub