DefaultPaperSize & PageSetupDialog Print Time in Crystal Report in VB.Net

 Dim repdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
 repdoc.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize

                Dim PageDB As New PageSetupDialog()

                PageDB.Document = New System.Drawing.Printing.PrintDocument()

                If (PageDB.ShowDialog() = DialogResult.OK) Then
                    Console.WriteLine("Allow Margins: " & PageDB.AllowMargins)
                    Console.WriteLine("Allow Orientation: " & PageDB.AllowOrientation)
                    Console.WriteLine("Allow Paper: " & PageDB.AllowPaper)
                    Console.WriteLine("Allow Printer: " & PageDB.AllowPrinter)
                    Console.WriteLine("Minimum Margins: " & PageDB.MinMargins.ToString())
                    Console.WriteLine("Show Network: " & PageDB.ShowNetwork)
                    Console.WriteLine("Printer Settings: " & PageDB.PrinterSettings.ToString())
                End If


                repdoc.PrintToPrinter(1, True, 0, 0)