title: Number of rows on each page in print area
body: <p>Is there any way to determine how many rows there are on each page inside my print area on each printed page? There are different amount of rows can be fitted to each page because of "Wrap text" command in my macro. I would like macro to go through whole Print area and count rows could be fitted on each page. My print area is A1:C111. </p>
  
  <p>I have tried to work on this one with no result:</p>
  
  <pre><code>Sub t()
  Dim printRng As Range, lastRow As Long
  
  Set printRng = Range("A1:C111")
  ActiveSheet.PageSetup.PrintArea = printRng
  lastRow = printRng.Row + printRng.Rows.Count - 1
  End Sub
  </code></pre>