macro to increase a value and print

[Guest]

I need to create a macro that increases the value of a cell in a worksheet
and then prints the worksheet. it needs to do this repeatedly until the value
of the cell I'm changing gets to a certain number. Any suggestions?

 

[Ron de Bruin]

See
http://www.rondebruin.nl/print.htm#number

 

[Gord Dibben]

Try this this for a start point.

Sub Sheet_Print()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To 10
With ActiveSheet
.Range("A1").Value = Value + i
.PrintOut
'.PrintOut preview:=True
End With
Next i
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP