Отрегулируйте размер Datagridview и печати - PullRequest
Новая
       7

Отрегулируйте размер Datagridview и печати

0 голосов
/ 01 апреля 2020

мой код должен распечатать сетку данных. Я мог печатать, но единственная проблема заключается в том, что печатается только одна часть dgv, как будто она слишком мала для dgv. Я думаю, что мне нужно сделать это для автоматического масштабирования. Ребята, вы знаете, в чем проблема? PS: размер сетки просмотра данных будет меняться каждый раз, когда кто-то ее использует, это зависит от того, сколько продуктов пользователь добавляет на нее.

Мой код для печати - это 

Private Sub BtnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
        Dim PrintDialog1 As New PrintDialog()
        PrintDialog1.Document = PrintDocument1
        Dim result As DialogResult = PrintDialog1.ShowDialog()

        If (result = DialogResult.OK) Then
            PrintDocument1.Print()
        End If
        PrintDocument1.Print()
    End Sub

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim bm As New Bitmap(Me.gridDoces.Width, Me.gridDoces.Height)
        gridDoces.DrawToBitmap(bm, New Rectangle(0, 0, Me.gridDoces.Width, Me.gridDoces.Height))
        e.Graphics.DrawImage(bm, 0, 0)
        e.Graphics.FillRectangle(Brushes.Red, New Rectangle(500, 500, 500, 500))
    End Sub

Заранее спасибо!

...