Macro Runs Too Fast

[LizS]

Hi all

I have a macro that sets two print ranges and prints them. If I step
through the macro it works fine. If I run the macro it sets the print
ranges but doesn't print. It seems to run too quickly. I have tried
slowing the macro down but to no avail. Can anyone help?

Thanks
Regards
Liz

Macro:

Sub PrintSearch()

ActiveSheet.PageSetup.PrintArea = "$a$1:$b$50"
ActiveSheet.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$c$1:$f$50"
ActiveSheet.PrintOut Copies:=1, Collate:=True

End Sub

Slowed down version (in theory):


Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub PrintSearch()

ActiveSheet.PageSetup.PrintArea = "$a$1:$b$50"
Sleep 2500

ActiveSheet.PrintOut Copies:=1, Collate:=True
Sleep 2500

ActiveSheet.PageSetup.PrintArea = "$c$1:$f$50"
Sleep 2500

ActiveSheet.PrintOut Copies:=1, Collate:=True

End Sub

 

[RB Smissaert]

Maybe try some DoEvents.

RBS

 

[LizS]

Thanks for the suggetsion RBS - I will experiment with that. In the
meantime I've shoved a msgBox in the middle - not ideal but at least it
prints.
Thanks
Regards
Liz

 

[Gary Keramidas]

if i just run those 4 lines of code, it prints for me. you must have
something else going on.