[bhurkie]

Hi Tech Guys,
I need some help to speed up printing when using this macro. I am using a Brother QL 570 printer with 2'' non adhesive tape.

Thanks.

Range("H14").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Race Variables").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Race 9").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Race Variables").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Race 9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
curPrtArea = ActiveSheet.PageSetup.PrintArea
myPrtArea = "n42:n48"
ActiveSheet.PageSetup.PrintArea = myPrtArea
ActiveSheet.PrintOut

[Rollin_Again]

I'm confused by what you are asking for. Are you saying that the code above is running slowly or is the printer just slow when actually printing?

Rollin

[bhurkie]

I'm not exactly sure, but I think the code is running slow.

Thanks

[Rollin_Again]

So when you manually format and print the workbook is the speed ok? Do any other applications have issues with printing? Add a messagebox to the very end of the code and when you fire the macro the messagebox should appear almost instaneously. If there is a delay in seeing the messagebox it means the code needs tweaking. If the messagebox appears quickly then it is likely a hardware or operating system issue that is causing the slowness.

Rollin