The code :
Sub Count()
With ActiveSheet.Range("A1")
.Value = .Value + 1
If .Value >= 10 Then Exit Sub 'limit
End With
Application.OnTime Now + TimeValue("00:00:02"), "Count" 'every 2 seconds
End Sub

generates increasing numbers till the last given limit.
and now
may i have a piece of code to add into this one, by which the sheet get printed after every increase.
for example
A1= 1 =print
A1= 2 = print
and so on