Mit Script PDF auf einen Netzwerkdrucker drucken

Mit einem VBScript PDF Doument auf einen Netzwerkdrucker durcker welches nicht als Standarddrucker definiert ist.

Hallo zusammen

Ich habe ein VBScript das von einer Outlook Regel ausgeführt wird, wenn eine Mail mit einem PDF Dokument ankommt.
Das Script druckt dann den Anhang auf dem Standarddrucker.

Nun man kann ja ein PDF Dokument öffnen und es über ein Netzwerkdrucker drucken lassen. Wie kann ich das im Script einbauen, dass es auf einem Netzwerkdrucker druckt. Ich habe im Internet viele Beispiele gefunden aber diese wechseln den Standarddrucker. Es sollte doch auch so funktionieren ohne das man den Drucker wechselt und wieder zurück. Danke für eure hilfe.

Hier der Druckbefehl von meine Script

Dim oAtt As Outlook.Attachment
Dim sFile As String
Dim ATT_PATH As String
ATT_PATH = folder & "\"

'Name der Datei wird mit dem aktuellen Datum gespeichert
Dim DateNow As Date
DateNow = DateValue(Now)

On Error Resume Next

For Each oAtt In oMail.Attachments
' Nur unten definierte Dateitypen speichern
Select Case LCase$(Right$(oAtt.FileName, 4))
Case ".pdf", ".doc", ".xls"

'If MsgBox("Datei speichern ?", vbYesNo, "Speichern") = vbYes Then
'sFile = folder & oAtt.FileName
'sFile = folder & DateNow & ".pdf"
sFile = ATT_PATH & oAtt.FileName
sFile = ATT_PATH & DateNow & ".pdf"
oAtt.SaveAsFile sFile

'ShellExecute 0, "print", sFile, vbNullString, vbNullString, 0