Visual Basic.NET - selección de una impresora determinada

Tengo que imprimir por una impresora distinta a la predeterminada y no hay forma. He buscado en libros/manuales, aquí como en el foro y no encuentro nada. Por favor si alguien me pueda ayudar?
Estoy haciendo pruebas con el siguiente código y no me hace caso, siempre se va la impresión a la impresora predeterminada.

Private Sub imprimir()
Me.txttexto.Text = " Numero. .: " & Me.numero.Text & _
Chr(10) & Chr(10) & " Importe. .: " & Me.importe.Text & Chr(10) & Chr(10) & _
" De fecha : " & Me.fechasalida.Text & Chr(10) & ". " & Chr(10) & ". "

Dim prnsettings As New PrinterSettings
Dim impresora As New Printing.PageSettings

' Declara la variable ImprimirDoc del tipo PrintDocument
Dim ImprimirDoc As New PrintDocument
impresora.PrinterSettings.PrinterName = "impresora a utilizar"

AddHandler ImprimirDoc.PrintPage, AddressOf Me.PrintText
ImprimirDoc.Print() 'Imprime texto

End Sub

Proba con PrintDialog
Asi podes configurar todo los datos de la impresora, papel, etc.

Espero que te sirva.

Suerte!!

Me puedes dar un ejemplo, porque lo he intentado y no me hace caso. He utilizado el printdialog con el ejemplo que he escrito.Como lo vinculo con el documento o el report de cristal. Gracias

Espero que te sirva!!!
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.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

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
e.Graphics.FillRectangle(Brushes.Red, New Rectangle(500, 500, 500, 500))
End Sub

Basandome en tu código y añadiendo:
PrintDialog1.PrinterSettings.PrinterName = "\\servidor\imp T616"
me funciona