Discussion :

[oami89]

Bonjour,
je veux imprimer le form en cour en cliquant sur un bouton.
Merci de m'aider je suis un débutant.

[Ehjoe]

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

[oami89]

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

Merci, mais j'utilise une imprimante matricielle qui n'accepte pas le format bitmap.
Aidez moi svp je suis blocké a ce problème

[Ehjoe]

Merci, mais j'utilise une imprimante matricielle qui n'accepte pas le format bitmap.
Aidez moi svp je suis blocké a ce problème

Bonjour,

Alors là cher ami je n'en sais rien, moi même j'avais posé la question quelque jour avant car je ne savais pas imprimer en vbNet.

Aurais-tu vb6 ?