Valg af printer i printerdialog..

Denne kode åbner en printerdialog, og trykker man ok printer den ud..
Jeg vil istedet for at lave en udskrivning bare have printernavnet på den valgte printer..
Nogen der har en løsning på det?

Private Sub Button2_Click(ByVal sender As Object, ByVal e As

System.EventArgs) Handles Button2.Click
        Dim PrintDialog1 As New PrintDialog
        PrintDialog1.Document = PrintDocument1
        Dim result As DialogResult = PrintDialog1.ShowDialog()

        If (result = DialogResult.OK) Then
            PrintDocument1.Print()
        End If

    End Sub