Private Sub Workbook_BeforePrint(Cancel As Boolean)js = Range("B10").Valuejs = js + 1Range("B10").Value = jsEnd Sub