Visual Basic - Imprimir a pdf

Hola a todos, estoy intentando imprimir un reporte hecho en crystal por una impresora pdf. Lo que no necesito saber es como poner la ruta y el nombre del archivo con q quiero q se imprima. Ahora lo consigo pero he de ponerla a mano en un cuadro de dialogo(q seria estupendo q no saliera) y necesito por codigo.
Pongo el codigo q tengo.

Private Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)
UseDefault = False

DsrPresupuestos.SelectPrinter "", "", ""

Cmd1.ShowPrinter
CRViewer1.PrintReport

End Sub