Discussion :

[gnain]

Bonjour,

Je voudrais imprimer un chart sur une feuille 8.5 x 11.
les marges à 0
orientation Landscape

et que le chart soit toujours pleine page peu importe sa grandeur.

donc j'utilise PrintDocument1_PrintPage pour ajuster les marges ainsi que l'orientation
mais je ne sais pas comment ajuster pleine page.

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Chart1.Printing.PrintDocument = PrintDocument1
        PrintDocument1.DefaultPageSettings.Landscape = True
        PrintDocument1.DefaultPageSettings.Margins.Bottom = 0
        PrintDocument1.DefaultPageSettings.Margins.Top = 0
        PrintDocument1.DefaultPageSettings.Margins.Left = 0
        PrintDocument1.DefaultPageSettings.Margins.Right = 0
 
        Chart1.Printing.Print(True)
 
        Me.Hide()
 
    End Sub
 
 
    Private WithEvents PrintDocument1 As New PrintDocument
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
        Chart1.Printing.PrintPaint(e.Graphics, New Rectangle(0, 0, Chart1.Width, Chart1.Height)) 
        Dim s As String = vbCrLf & vbCrLf & "Bonjour"
        e.Graphics.DrawString(s, Me.Font, Brushes.Black, New Point(0, Chart1.Height + 2)) 
 
    End Sub

Merci à l'avance

[gnain]

Il suffisait de redimensionner le chart avant impression et le remettre à sa grandeur après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
        Dim Largeur As Long = Chart1.Width
        Dim Hauteur As Long = Chart1.Height
 
        Chart1.Width = 1100
        Chart1.Height = 850
 
        Dim margins As New Printing.Margins(0, 0, 0, 0)
 
        Chart1.Printing.PrintDocument = PrintDocument1
        PrintDocument1.DefaultPageSettings.Landscape = True
        PrintDocument1.DefaultPageSettings.Margins = margins
 
 
        Chart1.Printing.Print(True)
 
        Chart1.Width = Largeur
        Chart1.Height = Hauteur
 
        Me.Hide()