Macro Runs Too Fast
 

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


--
LizS
------------------------------------------------------------------------
LizS's Profile: http://www.excelforum.com/member.php...o&userid=28991
View this thread: http://www.excelforum.com/showthread...hreadid=495743

Macro Runs Too Fast
 

Maybe try some DoEvents.

RBS

"LizS" wrote in message
...

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


--
LizS
------------------------------------------------------------------------
LizS's Profile:
http://www.excelforum.com/member.php...o&userid=28991
View this thread: http://www.excelforum.com/showthread...hreadid=495743

Macro Runs Too Fast
 

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


--
LizS
------------------------------------------------------------------------
LizS's Profile: http://www.excelforum.com/member.php...o&userid=28991
View this thread: http://www.excelforum.com/showthread...hreadid=495743

Macro Runs Too Fast
 

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

--


Gary


"LizS" wrote in message
...

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


--
LizS
------------------------------------------------------------------------
LizS's Profile:
http://www.excelforum.com/member.php...o&userid=28991
View this thread: http://www.excelforum.com/showthread...hreadid=495743