Bonjour,
j'aimerai bien savoir le code source pour imprimer un fichier bmp ou jpg depuis VB6 et merci.
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 :Dans ce code on affecte le fichier bmp à imprimer à la propriété Picture de l'objet Form en cours.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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.
Ne pas oublier le tag si satisfait.
Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
Balises CODE indispensables. Regardez ICI
Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
Vous pouvez consulter mes contributions
Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
Ne pas oublier L'Aide VBScript et MSDN VB6 Fr
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Printer.PaintPicture LoadPicture(filename), xPosition, yPosition, _ [Width], [Height]
Tu peux aussi(pour faire plus simple comme l'a dit babaothe) faire ceci :0,0 : position(x=0,y=0) sur la destination de l'impression
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
[Width],[Height] : facultatif : largeur et hauteur de l'impression en sortie
Ne pas oublier le tag si satisfait.
Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
Balises CODE indispensables. Regardez ICI
Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
Vous pouvez consulter mes contributions
Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
Ne pas oublier L'Aide VBScript et MSDN VB6 Fr
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