Discussion :

[VBcodeur]

Bonjour,

Je n'arrive pas, ni à apercevoir mon fichier (alias une image au format png) ni à l'imprimer. Elle est enregistrée dans le dossier temp de l'ordinateur et son chemin est donné dans le printdocument, les autres élements de l'impression y sont attachés mais cela ne fonctionne pas. L'impression "marche" mais je reçois une page blanche. De plus, comment distinguer si l'utilisateur à cliquer sur Imprimer dans un printdialog ou non et imprimer en fonction ?

Merci d'avance.

[Pol63]

pour imprimer une image il ne faut pas donner son chemin au printdocument, il faut la dessiner sur le graphics du printdocument
(et spécifier l'emplacement et la taille voulue)

[clementmarcotte]

Bonjour,

Tu peux toujours mettre ton image dans un RichTextBox.

Ceci dit, il faut utiliser la recette pour le rendre imprimable.

[VBcodeur]

pour imprimer une image il ne faut pas donner son chemin au printdocument, il faut la dessiner sur le graphics du printdocument
(et spécifier l'emplacement et la taille voulue)

J'ai essayé, ça a imprimé mais il y a deux problèmes :
- L'aperçu de l'image via printpreviewcontrol est partiel et les scrollbars ne fonctionnent pas, cela est de même pour l'impresssion, elle est partielle, seul le côté haut gauche est imprimé (en gros, la moitié supérieure gauche de la photo) (dimension : 1184x768 pour toutes sur mon PC en tout cas, mais il faudra gérer des tailles plus grandes, sur des PC fixes par exemple). Donc, comment gérer ce problème ?
Voici le code (PS : en plus, une fois la sélection d'imprimante ouverte, peu importe ce qui se passe, ça imprime...
b est une bitmap (le début du code fonctionne, en faite, ce début fait partie d'une autre form, c'est pour ça que je passe par Print.PrintPreviewControl1.Tag).

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
26
27
28
29
30
31
32
 
Dim filename As String = IO.Path.Combine(IO.Path.GetTempPath & Date.Now.Ticks.ToString & ".png")
        b.Save(filename)
        Print.PrintPreviewControl1.Tag = filename
        Print.PrintDialog1.Document = Print.PrintDocument1
        Print.ShowDialog()
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        PrintDialog1.ShowDialog()
        PrintDocument1.Print()
    End Sub
 
    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub
 
    Private Sub PrintDocument1_EndPrint(sender As Object, e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.EndPrint
        Try
            IO.File.Delete(PrintDocument1.DocumentName)
        Catch ex As Exception
 
        End Try
    End Sub
 
    Private Sub PrintDocument1_PrintPage(sender As Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.DrawImage(Image.FromFile(PrintPreviewControl1.Tag), New Point(0, 0))
        e.PageSettings.Landscape = True
    End Sub
 
    Private Sub PrintPreviewControl1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles PrintPreviewControl1.Paint
        e.Graphics.DrawImage(Image.FromFile(PrintPreviewControl1.Tag), New Point(0, 0))
    End Sub