如何在vb.net中打印前调整图表大小

Private Sub PrintButton_Click(sender As Object, e As EventArgs) Handles PrintButton.Click
    Dim printDocument As New Printing.PrintDocument()
    AddHandler printDocument.PrintPage, AddressOf PrintDocument_PrintPage
    printDocument.Print()
End Sub

Private Sub PrintDocument_PrintPage(sender As Object, e As Printing.PrintPageEventArgs)
    Dim chartSize As New Size(500, 300) ' 设置图表的大小
    Chart1.Size = chartSize

    ' 在打印页面上绘制图表
    Chart1.Printing.PrintPaint(e.Graphics, e.MarginBounds)

    e.HasMorePages = False ' 设置为False表示只打印一页
End Sub