Autoprint til ikke default printer

Hej,

Jeg har brug for at importere en textfil automatisk og printe den til en printer der ikke er sat som standard.

Hvis jeg har forstået det rigtigt er objektet Printer standard printer og samlingen Printers indeholder alle printere. Jeg har så fået smidt denne kode sammen:


Public Function PrintLabel()
Dim objPrinter As Printer
For Each objPrinter In Printers
If objPrinter.DeviceName = "Printernavn" Then
  objPrinter.CurrentY = 450
  objPrinter.FontSize = 12
  objPrinter.Print "test"
  objPrinter.EndDoc
  MsgBox objPrinter.DeviceName 'Den finder printeren!!
End If
Next
End Function

Fejlen jeg får er at objPrinter er readonly.

Men kort sagt lyder mit spørgsmål på hvordan jeg kan printe til den printer der ikke er sat som standard printer.

Håber der er nogle hajer derude.