print copies of the same sheet with changing values in a box

Hi, I have a work sheet with a chart and tables. I want to print this sheet
40 times, but each copy will have changed value in one box (add 1 to the S2,
so it will rise from 1 to 40) Is there a possibility how to create a command,
which will print this sheet with changing value in the box?
Thanx.

For i = 1 to 40

Range("A1").value = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

next i

Well, looks like it would work. unfortunately I'm total macro greenhorn.
Could you write me steb by step how should I run it.
Thanx a lot.

Kaak pÃ*Å¡e:

>
> For i = 1 to 40
>
> Range("A1").value = i
> ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
>
> next i
>
>
> --
> Kaak
> ------------------------------------------------------------------------
> Kaak's Profile: http://www.excelforum.com/member.php...fo&userid=7513
> View this thread: http://www.excelforum.com/showthread...hreadid=555909
>
>

Thanks for the answer again, forgety my previous question, I found it out
lately.
But: What if I want the range to be from i=1 to (s2) - so not the exact
number (40) but a value in a cell.

Kaak pÃ*Å¡e:

>
> For i = 1 to 40
>
> Range("A1").value = i
> ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
>
> next i
>
>
> --
> Kaak
> ------------------------------------------------------------------------
> Kaak's Profile: http://www.excelforum.com/member.php...fo&userid=7513
> View this thread: http://www.excelforum.com/showthread...hreadid=555909
>
>

Hi Milos,

For i = 1 To Range("s2")


Warm Regards,
Crystal
Microsoft Access MVP 2006

*
Have an awesome day

remote programming and training
strive4peace2006 at yahoo.com

*

milos wrote:
> Thanks for the answer again, forgety my previous question, I found it out
> lately.
> But: What if I want the range to be from i=1 to (s2) - so not the exact
> number (40) but a value in a cell.
>
> Kaak pÃ*Å¡e:
>
>
>>For i = 1 to 40
>>
>>Range("A1").value = i
>>ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
>>
>>next i
>>
>>
>>--
>>Kaak
>>------------------------------------------------------------------------
>>Kaak's Profile: http://www.excelforum.com/member.php...fo&userid=7513
>>View this thread: http://www.excelforum.com/showthread...hreadid=555909
>>
>>