Automating a Printout
What is that supposed to mean ?
NickHK
"Stella" wrote in message
...
Yeah Right : vous plonquere
"Tom Ogilvy" wrote in message
...
Sub Example1()
Dim bFlag as Boolean
Dim cnt as Long
bFlag = False
do
cnt = cnt + 1
if rnd() .995 then
bFlag = True
End if
until bflag = True
Worksheets("sheet2").Printout
msgbox "Number of loops: " & cnt
End Sub
--
Regards,
Tom Ogilvy
"Stella" wrote:
Hi all,
I'm using Excel 2002
From Sheet1 I run a Do Until macro and when it stops I want to print
Sheet2
automatically [ the print area is already set].
What do I need to add to the macro between *loop* and *end* to achieve
this?
Many thanks
Stella
|