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?