Script for Printer change/How to know if the print job is finished

Do Until finish

filelengthnew = fso.Filelen("AuditTrail.pdf")

If filelength = filelengthnew Then

finish= True

Else

filelength = filelengthnew

End If

Do Until AuditContinue

Loop

AuditContinue = False

Loop

 The problem is that now I want also to print it in a network printer. 

I cannot use that and I cannot print it in both ways, as it prints with the default printer.

I tried this:

Dim objPrinter

Set objPrinter = CreateObject("WScript.Network")

objPrinter.SetDefaultPrinter "\\servername\printername"

 But is not working on Comfort panel.

Is there any other way of doing it?

I appreciate your comments.

Thanks in advance,

Raul