IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

impression depuis vb6 d'un fichier BMP ou JPG


Sujet :

VB 6 et antérieur

  1. #1
    Candidat au Club
    Inscrit en
    Août 2010
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : Août 2010
    Messages : 3
    Points : 4
    Points
    4
    Par défaut 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.

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 806
    Points
    5 806
    Par défaut
    Bon c'est à la hâte :
    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
    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.
    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

  3. #3
    Inactif  
    Profil pro
    Inscrit en
    Février 2010
    Messages
    517
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2010
    Messages : 517
    Points : 617
    Points
    617
    Par défaut
    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]

  4. #4
    Candidat au Club
    Inscrit en
    Août 2010
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : Août 2010
    Messages : 3
    Points : 4
    Points
    4
    Par défaut
    Citation Envoyé par l_autodidacte Voir le message
    Bon c'est à la hâte :
    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
    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

  5. #5
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 806
    Points
    5 806
    Par défaut
    Tu peux aussi(pour faire plus simple comme l'a dit babaothe) faire ceci :
    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
    0,0 : position(x=0,y=0) sur la destination de l'impression
    [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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VB6] Convertion d'un fichier bmp en jpg
    Par WOLO Laurent dans le forum VB 6 et antérieur
    Réponses: 22
    Dernier message: 12/01/2015, 14h22
  2. Création d'un bitmap depuis un fichier bmp
    Par Tyu38 dans le forum Débuter
    Réponses: 14
    Dernier message: 04/06/2008, 14h08
  3. affichage et impression d'un fichier bmp
    Par boubou00 dans le forum wxWidgets
    Réponses: 2
    Dernier message: 03/05/2007, 15h09
  4. executer un fichier sql depuis VB6
    Par aymenagrebi dans le forum VB 6 et antérieur
    Réponses: 7
    Dernier message: 18/04/2007, 23h07
  5. Impression d'état CR10 depuis VB6
    Par mcrocher dans le forum SDK
    Réponses: 1
    Dernier message: 07/09/2005, 10h31

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo