Udskriv PDF filer med Shell

Har lave følgende lille test:

Private Sub Command1_Click()
    Dim Docname As String
    Docname = "C:\Programmer\Adobe\Acrobat 6.0\Reader\Acrord32.exe /t c:\temp\pmn.pdf " & Printer.DeviceName   
    Shell Docname, vbNormalFocus
End Sub

Som også virker ganske godt, når der er tale om en netværksprinter, men når printeren sidder på LPT1, går det galt.... Hvordan løser jeg det???? Jeg takker på forhånd

Lasse

P.s. Jeg skal bruge /t idet jeg skifter printer og desuden åbner /t en ny adobe, /P /h udskriver ikke alle filer hvis de bliver sendt hurtigt efter hinanden.... Adobe/P.c'en kan ikke følge med.