Selecionar impresora

[jrp01]

Bueno he buscado y se puede con el printdialog pero me pone este error al mostrarlo:



Este es el codigo

Código:

        Dim prDocument As New PrintDocument
....
        With PDialog
            Try
                .Document = prDocument
                .AllowPrintToFile = True
                .AllowSelection = True
                .AllowSomePages = True
                .PrintToFile = False
                .ShowHelp = True
                .ShowNetwork = True
                .ShowDialog() <--Aqui
            Catch ex As Exception
                MsgBox(ex.ToString())
            End Try
        End With

¿Que puede ser?