How to show PrintDialog when I click Print button instead of printing directly to the printer

Hi all

I designed a crystal report and added a button to print the report contents using the following code:

    Protected Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
        crystalReport.PrintToPrinter(1, True, 0, 0)
    End Sub

this command send the report directly to the printer without showing the Print Dialog Box

I need to show the dialog box so I can select the printer and pages to print. !!!

Please don't provide links to similar subject because I went through many of them but with no result.