Application object failed while trying to print

Dear All  ,

i was trying to execute this code and found that the code would just run fine the first time i run it  and sometimes not , the error it throws  is as follows ..........................i tested the printers and they were just working fine..........

any guesss?

Thank you all for your suggestions and comments.................

*************************************************************************************************************************************

Run time error ' 1004 '

Method 'Active printer ' of object  '_Application' failed

***************************************************************************************************************************************

With wksCurrent
               .Application.Calculation = xlCalculationAutomatic
               .EnableCalculation = True
               .PageSetup.PrintArea = "$A$1:$O$107"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.ActivePrinter = "printer#1 on Ne01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "printer#2 on Ne01:", Collate:=True
With .Range("A1:Q112")
                   .Copy
                   .PasteSpecial (xlPasteValuesAndNumberFormats)
End With

Venu

Excel has a habit of choking on print interactions as VBA has to interact with the print driver. Have you tried an Application.Wait statement to stall the execution of the second print? say for 30 seconds?

Also, does it have the same issue on local printers? Say printing twice to the same printer. If so it is the swapping that is the issue. Just a couple of things to try