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

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

我想在vb.net应用程序中打印图表，但是当我打印它时，它很小，我找不到如何调整其大小的方法。

目前，我正在使用以下代码：（在此处找到：Some msdn printing subject）

Private Sub BT_Print_Click(sender As Object,e As EventArgs) Handles BT_Print.Click
    Dim pdS As New PrintDocument()

    AddHandler pdS.PrintPage,AddressOf pds_PrintPage
    pdS.DefaultPageSettings.Landscape = True

    Dim PrintDialog1 As New PrintPreviewDialog
    PrintDialog1.Document = pdS

    If (PrintDialog1.ShowDialog = DialogResult.OK) Then
        Chart_Requis.Printing.PrintDocument.DefaultPageSettings.Landscape = True
        pdS.Print()
End If

End Sub

Private Sub pds_PrintPage(sender As Object,ev As PrintPageEventArgs)
    Dim chartPosition As New Rectangle(1,1,ev.MarginBounds.Width,ev.MarginBounds.Height)

    Chart_Requis.Printing.PrintPaint(ev.Graphics,chartPosition)
End Sub

经过所有的尝试，我只是想移动边距...这很好，但是我仍然无法正确读取图表...

有人遇到相同的问题并找到了解决方案吗？

----------------------------------------编辑------ -------------------------------

当我解释您的答案时，我现在可以更改图表的位置和大小，但是会出现空白方块，我不知道为什么！

解决方法

通过发布的图像看来，您的问题是ChartArea而不是Chart Control。 您需要增加图表区域的面积。 在下面的示例中（可以为您提供帮助），我使用了两个参数scaleX和scaleY。 您可以对这两个进行查找，以找到合适的尺寸。 请注意。：作为示例中的“图表区域”，我使用了第一个“图表控件”，但是您可以使用另一个按名称进行调用的控件。希望就是你所需要的。

Private Sub BT_Print_Click(sender As Object,e As EventArgs) Handles BT_Print.Click


    Using pdS As New PrintDocument()

        Dim scaleX As Single = 1.5
        Dim scaleY As Single = 1.2

        With pdS.DefaultPageSettings
            .Landscape = True
            .Margins = New Margins(10,10,10)
        End With

        Chart_Requis.Printing.PrintDocument = pdS

        AddHandler pdS.PrintPage,Sub(obj As Object,ev As PrintPageEventArgs)
                                      Using ev.Graphics
                                          With Chart_Requis.ChartAreas.FirstOrDefault

                                              Dim initialP As DataVisualization.Charting.ElementPosition = .Position

                                              Dim newP As Rectangle = New Rectangle With {
                                              .X = CInt(initialP.X),.Y = CInt(initialP.Y),.Width = CInt(initialP.Width * scaleX),.Height = CInt(initialP.Height * scaleY)
                                              }

                                              .Position.FromRectangleF(newP)

                                              Chart_Requis.Printing.PrintPaint(ev.Graphics,ev.MarginBounds)

                                              .Position = initialP

                                          End With
                                      End Using
                                  End Sub

        Using PrintDialog1 As New PrintPreviewDialog With {
            .Document = pdS
        }

            If (PrintDialog1.ShowDialog = DialogResult.OK) Then
                pdS.Print()
            End If
        End Using

    End Using


End Sub

,

好的，我终于在这里找到了对我有用的东西，我将其调整为适合我的情况：Another Stackoverflow subject

我让您在这里看到最终的图表：

我添加了一个对话框来选择打印机，并修改一下原始代码，如下所示：

Private Sub BT_Print_Click(sender As Object,e As EventArgs) Handles BT_Print.Click

    Print_Preview()
End Sub

Public Sub Print_Preview()
    Dim Print_Doc As PrintDocument
    Print_Doc = Chart_Requis.Printing.PrintDocument


    AddHandler Print_Doc.PrintPage,New PrintPageEventHandler(AddressOf Print_Page)

    'SHEET PARAMETERS
    Print_Doc.DefaultPageSettings.Landscape = True
    Print_Doc.DefaultPageSettings.Margins = New Printing.Margins(0,1,1)
    Print_Doc.DefaultPageSettings.Color = True

    'CHOOSING PRINTER AND OTHER PARAMETERS
    Dim Print_dlg As New PrintDialog
    Print_dlg.Document = Print_Doc
    Dim result As DialogResult = Print_dlg.ShowDialog()

    'IF DIALOGBOX OK THEN CONTINUE OTHERWISE NO
    If (result = DialogResult.OK) Then

        'PUT MARKERS TO THE RIGHT SIZE
        For i = 0 To Chart_Requis.Series.Count - 1
            Chart_Requis.Series(i).MarkerSize = 1
        Next

        'CHECKING BEFORE PRINTING
        Chart_Requis.Printing.PrintPreview()
    End If

End Sub

Private Sub Print_Page(ByVal sender As Object,ByVal ev As PrintPageEventArgs)
    'DEFINI LA POSITION ET LA TAILLE DU GRAPHIQUE
    Dim chartPosition As New Rectangle(-70,-50,2500,2300)
    Chart_Requis.Printing.PrintPaint(ev.Graphics,chartPosition)
End Sub

希望它能帮助今天遇到同样麻烦的人...