Udskriv markeret tekst

Jeg har en rich text box hvor der vises en tekst fil.
Når der klikkes på en knap der hedder udskriv udføres følgende:

Tekst filen åbnes, hentes linie for linie og sendes til printeren, inden åbnes printer dialogboxen, (For at give mulighed for at vælge printer)
Nu er ønsket at man kan markerer en del af teksten, og i printer dialogboxen klikke på udskriv markeret område, er der nogen der har en god ide, hvad retunerer printer dialogboxen når der er klikket på markeret tekst ?

Nuværende rutine for udskrivning:
(Filen test.txt vises i en rich tekst box og der klikkes på Udskriv)

Private Sub cmdPrinter_Click()
Dim B$, fil, FileNo

On Error Exit Sub
cmdPrint.CancelError = True
cmdPrint.ShowPrinter

Printer.Print \"\"
Printer.FontSize = 12
Printer.FontName = \"Arial\"


fil = App.Path & \"test.txt\"
FileNo = FreeFile
Open fil For Input As #FileNo
Do While EOF(FileNo) = False
Line Input #FileNo, B$
Printer.Print B$
Loop
Close #FileNo

Printer.EndDoc

End Sub


-SCB