title: run macro after print button
body: <p>We are looking for a macro that after a user hits the print button will delete an entire row if Column I has value of zero.  Its deleting everything.
  <a href="http://i.imgur.com/1SVDVLi.jpg" rel="nofollow">http://i.imgur.com/1SVDVLi.jpg</a></p>
  
  <pre><code>Private Sub Workbook_BeforePrint(Cancel As Boolean)
  
     Sub DeleteRows()
     Dim c As Range
     Dim SrchRng
  
     Set SrchRng = ActiveSheet.UsedRange
     Do
         Set c = SrchRng.Find("0", LookIn:=xlValues)
         If Not c Is Nothing Then c.EntireRow.Delete
     Loop While Not c Is Nothing
  End Sub
  </code></pre>