Printing Problem

[sc5502]

This code should print a three page PDF document but instead prints a one page blank document. I do not have much experience in printing. What is wrong?

 Private Sub P(ByVal strPDF_Path As String)
 
        Dim Printdocument1 As New System.Drawing.Printing.PrintDocument
        Dim ppd As New PrintPreviewDialog
        Dim PrintDialog1 As New System.Windows.Forms.PrintDialog
        Dim Printer_selected As String
        Dim StreamToPrint As System.IO.StreamReader
 
        StreamToPrint = New System.IO.StreamReader(strPDF_Path)
        Printdocument1.DocumentName = "Document"
        Printdocument1.PrinterSettings.PrintFileName = strPDF_Path
        ppd.Document = Printdocument1
        ppd.ShowDialog()
        PrintDialog1.Document = Printdocument1
        PrintDialog1.PrinterSettings = Printdocument1.PrinterSettings
        If PrintDialog1.ShowDialog = DialogResult.OK Then
            Printdocument1.PrinterSettings = PrintDialog1.PrinterSettings
            Printer_selected = Printdocument1.PrinterSettings.PrinterName
            Printdocument1.Print()
        End If
    End Sub