รบกวนช่วยเรื่องการปรับความสูงของ PrintDocument1 ต้องการปรับขนาดตามจำนวนสิ้นค้าที่เลือกมาอะครับ

  Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        'ใบเสร็จ
        Dim column(8) As Integer
        column(1) = 10
        column(2) = 70
        column(3) = 160
        column(4) = 320
        column(5) = 430
        column(6) = 530
        column(7) = 120
        column(8) = 570

        Dim font As New Font("Cordia New", 14, FontStyle.Bold)
        Dim font1 As New Font("Cordia New", 18, FontStyle.Bold)
        Dim font2 As New Font("Cordia New", 14)
        e.Graphics.DrawString("ร้านปัญญารุ่งเรืองการค้า", font1, Brushes.Black, column(1), 20)
        e.Graphics.DrawString("โทร : 087-975-5125", font2, Brushes.Black, column(1), 48)
        e.Graphics.DrawString("เลขที่ใบเสร็จ : " + frm_productsale.lbl_receipt_no.Text, font2, Brushes.Black, column(1), 69)
        e.Graphics.DrawString("วันที่ : " + frm_productsale.lbl_receipt_date.Text, font2, Brushes.Black, column(1), 87)
        e.Graphics.DrawString(frm_productsale.lbl_time.Text, font2, Brushes.Black, column(7), 87)
        e.Graphics.DrawLine(Pens.Black, column(1), 110, 610, 110)

        Dim line As Integer = 120
        Dim line1 As Integer = 105

        e.Graphics.DrawString("ลำดับ", font2, Brushes.Black, column(1), line)
        e.Graphics.DrawString("รหัสสินค้า", font2, Brushes.Black, column(2), line)
        e.Graphics.DrawString("รายการสินค้า", font2, Brushes.Black, column(3), line)
        e.Graphics.DrawString("จำนวนสินค้า", font2, Brushes.Black, column(4), line)
        e.Graphics.DrawString("ราคาสินค้า", font2, Brushes.Black, column(5), line)
        e.Graphics.DrawString("ราคารวม", font2, Brushes.Black, column(6), line)

        For i As Integer = 0 To frm_productsale.list_view_sale.Items.Count - 1
            line += 20
            Dim print_out(8) As String
            With frm_productsale.list_view_sale
                print_out(1) = .Items(i).SubItems(0).Text
                print_out(2) = .Items(i).SubItems(1).Text
                print_out(3) = .Items(i).SubItems(2).Text
                print_out(4) = .Items(i).SubItems(3).Text
                print_out(5) = .Items(i).SubItems(4).Text
                print_out(6) = .Items(i).SubItems(5).Text



            End With

            e.Graphics.DrawString(print_out(1), font2, Brushes.Black, column(1), line)
            e.Graphics.DrawString(print_out(2), font2, Brushes.Black, column(2), line)
            e.Graphics.DrawString(print_out(3), font2, Brushes.Black, column(3), line)
            e.Graphics.DrawString(print_out(4), font2, Brushes.Black, column(4), line)
            e.Graphics.DrawString(print_out(5), font2, Brushes.Black, column(5), line)
            e.Graphics.DrawString(print_out(6), font2, Brushes.Black, column(6), line)

        Next
        line += 35
        e.Graphics.DrawLine(Pens.Black, column(1), line, 610, line)
        line += 9
        e.Graphics.DrawString("ราคารวม      " & frm_productsale.txt_total.Text & "", font, Brushes.Black, column(5), line)
        e.Graphics.DrawString("บาท ", font, Brushes.Black, column(8), line)
        line += 20
        e.Graphics.DrawString("เงินที่รับมา    " & txt_receive.Text & "", font, Brushes.Black, column(5), line)
        e.Graphics.DrawString("บาท ", font, Brushes.Black, column(8), line)
        line += 20
        e.Graphics.DrawString("เงินทอน        " & txt_change.Text & "", font, Brushes.Black, column(5), line)
        e.Graphics.DrawString("บาท ", font, Brushes.Black, column(8), line)
    End Sub

    Private Sub printting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles printting.Click
        PrintDocument1.DefaultPageSettings.PaperSize = New System.Drawing.Printing.PaperSize("Custom", 650, 300)
        PrintPreviewDialog1.Show()
        PrintPreviewDialog1.Document = PrintDocument1
    End Sub