All data not covered on paper while printing in VB.NET

e.Graphics.DrawString("PEN_DUE.", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 1530, VerticalPrintLocationSingle)

Private Sub MONTHLYDEDUCTIONSSUMMARYToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MONTHLYDEDUCTIONSSUMMARYToolStripMenuItem.Click
       Dim printDialog11 As PrintDialog = New PrintDialog
       PrintDocument11.DefaultPageSettings.Landscape = True
       PrintDocument11.DefaultPageSettings.PaperSize = PrintDocument11.PrinterSettings.PaperSizes(5)
       PrintPreviewDialog11.ShowDialog()
       Dim result As DialogResult = PrintDialog11.ShowDialog
       If (result = Windows.Forms.DialogResult.OK) Then
           PrintDocument11.Print()
       End If
   End Sub

Private Sub PrintDocument11_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument11.PrintPage
        Dim strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=c:\Users\Public\LOCAL GOVERNDATA.mdb;Jet OLEDB:Database Password=council12;"
        Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(strConnection)
        cn.Open()

        Dim HorizontalPrintLocationSingle As Single = e.MarginBounds.Left
        Dim VerticalPrintLocationSingle As Single = e.MarginBounds.Top - 80

        Dim hfont As New Font("Aria", 12, FontStyle.Bold)
        Dim sfont As New Font("Arial", 12, FontStyle.Bold)
        Dim pfont As New Font("Arial", 11, FontStyle.Regular) : Dim pdfont As New Font("Arial", 11, FontStyle.Bold) : Dim afont As New Font("arial", 10, FontStyle.Bold)


        Dim LineHeightSingle As Single = pfont.GetHeight + 2 ' Add two pixels for spacing
        VerticalPrintLocationSingle += LineHeightSingle * 2
        e.Graphics.DrawString("LAGELU  LOCAL /GOVT.,  IYANA OFFA", hfont, Brushes.Black, HorizontalPrintLocationSingle + 400, VerticalPrintLocationSingle)
        VerticalPrintLocationSingle += LineHeightSingle * 2
        e.Graphics.DrawString(" DEDUCTIONS SUMMARY  FOR  THE  MONTH  OF", hfont, Brushes.Black, HorizontalPrintLocationSingle + 300, VerticalPrintLocationSingle)
        e.Graphics.DrawString(Today.ToString("MMM") & "." & "," & " " & Year(Today), hfont, Brushes.Black, HorizontalPrintLocationSingle + 770, VerticalPrintLocationSingle)
        VerticalPrintLocationSingle += LineHeightSingle * 2
        VerticalPrintLocationSingle += LineHeightSingle
        e.Graphics.DrawString("PAYE", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 50, VerticalPrintLocationSingle)
        e.Graphics.DrawString("NULGE", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 140, VerticalPrintLocationSingle)
        e.Graphics.DrawString("CICS", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 220, VerticalPrintLocationSingle)
        e.Graphics.DrawString("IMPA", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 220, VerticalPrintLocationSingle)
        e.Graphics.DrawString("ADVANCE", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 320, VerticalPrintLocationSingle)
        e.Graphics.DrawString("DEPOSIT", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 410, VerticalPrintLocationSingle)
        e.Graphics.DrawString("BANK-LN", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 490, VerticalPrintLocationSingle)
        e.Graphics.DrawString("MUSLIM", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 590, VerticalPrintLocationSingle)
        e.Graphics.DrawString("XTIAN", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 685, VerticalPrintLocationSingle)
        e.Graphics.DrawString("COMM.", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 780, VerticalPrintLocationSingle)
        e.Graphics.DrawString("MHW_DUE", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 875, VerticalPrintLocationSingle)
        e.Graphics.DrawString("CHE-DUE", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 970, VerticalPrintLocationSingle)
        'e.Graphics.DrawString("NMN-DUE", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 1050, VerticalPrintLocationSingle)
        e.Graphics.DrawString("PEN_DUE.", pdfont, Brushes.Black, HorizontalPrintLocationSingle + 1530, VerticalPrintLocationSingle)
.....
......
....
Endsub