Udskriv til netværksprinter vba

Jeg skal via vba kunne styre at udskrivning sker til en bestemt printer. Jeg har hentet denne kode på nettet, men kan ikke få den til at virke:

Sub PrintToNetworkPrinter()
Dim strCurrentPrinter As String, strNetworkPrinter As String
    strNetworkPrinter = GetFullNetworkPrinterName("doc2mail")
    If Len(strNetworkPrinter) > 0 Then
        strCurrentPrinter = Application.ActivePrinter
        Application.ActivePrinter = strNetworkPrinter
        Sheets("ark1").PrintOut Copies:=1, Collate:=True
        Application.ActivePrinter = strCurrentPrinter
    End If
End Sub

Function GetFullNetworkPrinterName(strNetworkPrinterName As String) As String
Dim strCurrentPrinterName As String, strTempPrinterName As String, i As Long
    strCurrentPrinterName = Application.ActivePrinter
    i = 0
    Do While i < 100
        strTempPrinterName = strNetworkPrinterName & " on Ne"    &      Format(i, "00") & ":"
        On Error Resume Next
        Application.ActivePrinter = strTempPrinterName
        On Error GoTo 0
        If Application.ActivePrinter = strTempPrinterName Then
            GetFullNetworkPrinterName = strTempPrinterName
            i = 100
        End If
        i = i + 1
    Loop
the active printer
    Application.ActivePrinter = strCurrentPrinterName
End Function

Udskrivning sker desværre stadig til standardprinter. Det skal istedet ske til printeren "doc2mail" og udskrivningsdialogen skal ikke vises.