Hvordan vælger jeg printer port?

Hvorfor bruger du ikke CommonDialog controllen, og lader brugeren vælge printer med ShowPrinter event

Eks:

CommonDialog1.Showprinter
Printer.print "Hej verden!"

Ellers brug denne kode:
Sub PPort(Port as string)
  Dim P As Object
  For Each P In Printers
      If UCase(P.Port) = Port Then
        Set Printer = P
        Exit For
      End If
  Next P

Fejlen i det du gør er at du ændrer porten på den printer som er valgt, hvis du f.eks. har 2 printere som er tilsluttet sådan her:

HP LaserJet : LPT1
HP DeskJet  : LPT2

Så gør du følgende (med din kode):
Vi siger at Printer i øjeblikket er HP LaserJet
Og du sætter så dens port til LPT1 og det er jo forkert!

Har jeg udtrykt mig forståeligt? :)

FEJL: Og du sætter så dens port til LPT2 og det er jo forkert!