Imprimer un fichier

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.

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)

Bonjour,

Tu peux toujours mettre ton image dans un RichTextBox.

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

Citation:

Envoyé par 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)

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:

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