Discussion :

[AWRcool]

Bonjour à tous,

Quelle et la commende pour forcer l'impression en pleine page

J'ai déjà trouvé comment forcer la couleur et le paysage mais pour imprimer sur toute la feuille je ne trouve pas

Code :

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

1
2
3
4
5
6
7
8
9
 
 
 Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles B_imp.Click
 
        G_courbe.Printing.PrintDocument.DefaultPageSettings.Color = True
        G_courbe.Printing.PrintDocument.DefaultPageSettings.Landscape = True
        G_courbe.Printing.Print(True)
 
    End Sub

Quand j'imprime, mon graphique se trouve au milieu mais ne prend pas toute la page.
Quelqu’un serait quelle petit code je dois rajouter ?

Merci d'avance.

[Prisson]

bonjour,
regardez un peu cet article si cela peut vous aider
http://www.mon-blog-note.com/vb-net-...ns-dune-image/

[AWRcool]

Bonjour , Prisson !

Merci pour le lien s'est surement une solution je vais me pencher dessus

Dommage qu'il existe pas une commande toute faite comme pour la couleur et l'orientation paysage.
Je suis tombé sur une page qui parlais d'une ancienne fonction zoom mais je croie que ça n'existe plus.

bonne journée.

[AWRcool]

Bonsoir à tous

Voila juste pour vous prévenir que j'ai trouvé une solution simple.

Je vous la link pour les intéressés :

Code :

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

1
2
3
4
5
6
7
8
 
Dim margins As New Printing.Margins(0, 0, 0, 0)
 
G_courbe.Printing.PrintDocument.DefaultPageSettings.Color = True
G_courbe.Printing.PrintDocument.DefaultPageSettings.Landscape = True
G_courbe.Printing.PrintDocument.OriginAtMargins = False
G_courbe.Printing.PrintDocument.DefaultPageSettings.Margins = margins
G_courbe.Printing.Print(True)

Bonne nuits à tous
et à bientôt.