Bonjour,
je veux imprimer le form en cour en cliquant sur un bouton.
Merci de m'aider je suis un débutant.
Bonjour,
je veux imprimer le form en cour en cliquant sur un bouton.
Merci de m'aider je suis un débutant.
Bonjour,
Voici le code testé (sauf impression papier), il permet de visualiser avant (évite d'imprimer pour rien), juste copier/coller le code en form 1 d'un nouveau progamme pour tester, en rajoutant les 6 objet nécessaires :
form1 + button1 + button2 + PrintPreviewControl1 + PageSetupDialog1 + PrintDocument1
Ils seront soulignés en bleu s'il manquent.
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
25 Option Explicit On Public Class Form1 Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.PrintPreviewControl1.Zoom = 0.6 Me.PrintPreviewControl1.Rows = 1 Dim PageSetupDialog As New PageSetupDialog() PageSetupDialog.Document = PrintDocument1 PageSetupDialog.PageSettings.Landscape = True Me.PrintPreviewControl1.Document = Me.PrintDocument1 End Sub Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim PageSetupDialog As New PageSetupDialog() PageSetupDialog.Document = PrintDocument1 PageSetupDialog.PageSettings.Landscape = True Me.PrintDocument1.Print() End Sub Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim bmp As New Bitmap(Me.Width, Me.Height, Imaging.PixelFormat.Format32bppArgb) Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height)) e.Graphics.DrawImage(bmp, 10, 10) End Sub End Class
.
Cordialement.
Joe.
.
.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager