impression depuis vb6 d'un fichier BMP ou JPG

Bonjour,
j'aimerai bien savoir le code source pour imprimer un fichier bmp ou jpg depuis VB6 et merci.

Bon c'est à la hâte :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Command1_Click() cmDlg.Filter = "Fichier BMP(*.bmp)|*.bmp|Fichier JPG(*.jpg)|*.jpg" cmDlg.ShowOpen Me.Picture = LoadPicture(cmDlg.FileName) PrintAnywhere Me, Printer End Sub Sub PrintAnywhere(Src As Object, Dest As Object) On Error Resume Next Dest.PaintPicture Src.Picture, 0, 0 If Dest Is Printer Then Printer.EndDoc End If End Sub

---

Dans ce code on affecte le fichier bmp à imprimer à la propriété Picture de l'objet Form en cours.
Ce code a été testé avec DoPDF7(en guise d'imprimante).
Rq : Ne pas oublier d'ajouter le contrôle Comdlg32.ocx dont on place une instance sur la Form et qu'on renommera en cmDlg.

salut

il n'est pas nécessaire de passer par me.Picture.
appliquer directement la méthode PaintPicture à l'objet Printer de VB6. Example:
syntaxe :

Code:

---

1 2	Printer.PaintPicture LoadPicture(filename), xPosition, yPosition, _ [Width], [Height]

---

Citation:

---

Envoyé par l_autodidacte

Bon c'est à la hâte :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Command1_Click() cmDlg.Filter = "Fichier BMP(*.bmp)|*.bmp|Fichier JPG(*.jpg)|*.jpg" cmDlg.ShowOpen Me.Picture = LoadPicture(cmDlg.FileName) PrintAnywhere Me, Printer End Sub Sub PrintAnywhere(Src As Object, Dest As Object) On Error Resume Next Dest.PaintPicture Src.Picture, 0, 0 If Dest Is Printer Then Printer.EndDoc End If End Sub

---

Dans ce code on affecte le fichier bmp à imprimer à la propriété Picture de l'objet Form en cours.
Ce code a été testé avec DoPDF7(en guise d'imprimante).
Rq : Ne pas oublier d'ajouter le contrôle Comdlg32.ocx dont on place une instance sur la Form et qu'on renommera en cmDlg.

---

merci beaucoup

Tu peux aussi(pour faire plus simple comme l'a dit babaothe) faire ceci :

Code:

---

1 2 3 4 5 6

Private Sub cmdPrint_Click() cmDlg.Filter = "Fichier BMP(*.bmp)|*.bmp|Fichier JPG(*.jpg)|*.jpg" cmDlg.ShowOpen Printer.PaintPicture LoadPicture(cmDlg.FileName), 0, 0,[Width],[Height] Printer.EndDoc End Sub

---

0,0 : position(x=0,y=0) sur la destination de l'impression
[Width],[Height] : facultatif : largeur et hauteur de l'impression en sortie