none
Comment ajouter un aperçu avant impression à mon application VB6 RRS feed

Réponses

  • Bonjour Zidane 2,

    Ah, si tu ne me mets pas de points à toutes mes réponses moi je ne travaille plus gratuitement :o)

    Ça ne marche pas, étrange ça, même en recopiant le lien ?

    Bon alors tu peux taper, heu, par sur moi, mais sur Gogole "FAQ Visual Basic"

    Sinon voici le texte de la FAQ :

    Question 13
    Comment ajouter un aperçu avant impression à mon application VB ?
    Il n'existe pas de contrôle permettant de le faire automatiquement, il faut le programmer manuellement. La méthode pour le programmer est plus simple depuis la version 5 de Visual Basic car l'objet Printer n'y est plus un objet système et il peut donc être passé en paramètre d'une fonction ou d'une procédure. Les fiches suivantes de la base de connaissance MSDN permettent
    de se documenter sur le sujet :
    
    Pour les versions VB 2.0 et VB 3.0 : http://support.microsoft.com/default.aspx?scid=kb;en-us;Q113236 
    Pour les versions VB 5.0 et VB 6.0 : http://support.microsoft.com/default.aspx?scid=kb;en-us;Q193379 
    Pour les versions 5.0 et 6.0 de Visual Basic, le principe est le suivant :
    
    Placer un contrôle PictureBox sur une feuille 
    Calculer le ratio entre ses dimensions et celles de l'objet Printer (cf. la routine proposée par Microsoft) 
    Redimensionner le PictureBox de façon qu'il soit une copie de la feuille physique (donc de l'objet printer) : cela permet d'obtenir le bon ratio longueur/largeur pour le PictureBox (qu'il ait le même que l'objet printer) 
    Ecrire la routine d'impression de façon à ce que l'on puisse passer en argument soit l'objet PictureBox, soit l'objet Printer 
    Par exemple pour Ecrire « Salut tout le monde », en Times New Roman, gras, Police 14, et souligné, en position X=200, Y=500 de la feuille et en voir l'aperçu, la routine serait la suivante :
    
    Private sub Impression_ou_Aperçu (objDestination as Object, Optional dRatio as double = 1)
    'dRatio est le rapport précédemment cité entre la taille du PictureBox et
    'celle de l'objet Printer
    
      With objDestination
        .FontName = "Times New Roman"
        .FontSize = 14 * dRatio
        .FontUnderline = true
        .CurrentX = 200 * dRatio
        .CurrentY = 500 * dRatio
      End With
    
      ObjDestination.Print "Salut tout le monde"
    
    End Sub
    
    Il ne reste plus qu'à appeler la routine comme ceci (prenons par exemple un PictureBox qui fasse le quart de taille de l'objet printer, le ratio est donc de 0,25)
    
    'Pour l'aperçu :
    Call Impression_ou_Aperçu (PictureBox, 0.25)
    
    'Pour l'impression :
    Call Impression_ou_Aperçu (Printer)
    
    Pour l'impression des images, le principe est le même, il suffit d'appliquer le fameux ratio dRatio aux dimensions et coordonnées de l'image à afficher sur l'un ou l'autre des objets destination et d'utiliser la fonction objDestination.PaintPicture.
     
    Date de publication : 07 juillet 2002
    Dernière modification : 07 juillet 2002
    Rubriques : Impression
    Mots-clés : aperçu, impression 

    Cordialement.

     


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe samedi 4 septembre 2010 15:00
    • Marqué comme réponse Alex Petrescu mardi 7 septembre 2010 09:24
    samedi 4 septembre 2010 06:05

Toutes les réponses

  • Bonjour Zidane 2,

    Ah, tu vas encore me mettre des points pour mon travail de nuit, merci ;o)

    Alors tu as une FAQ VB dont je ne peux que te conseiller de noter l'adresse, et cette dernière traite de ton sujet ici :

    http://faq.vb.free.fr/index.php?question=13

    Fais ce que tu peux, si ça ne tourne pas reviens, moi, ou Jean-Marc (bien meilleur que moi) ou d'autres te feront marcher le bidule.

    Bonne soirée, au plaisir de te lire, cordialement.

     


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe samedi 4 septembre 2010 15:00
    vendredi 3 septembre 2010 19:53
  •  

    Pour avoir cité la FAQ: 1 point :-)

    Pour avoir écrit le gentil compliment à mon sujet, je ne peux pas revoter, mais le coeur y est !!

     

    Cordialement,

    Jean-Marc

     


    Jean-marc
    vendredi 3 septembre 2010 20:37
  • Merci à vous

    mais le lien pour la faq ne marche pas avec moi.

    Cordialement

    vendredi 3 septembre 2010 23:56
  • Bonjour Zidane 2,

    Ah, si tu ne me mets pas de points à toutes mes réponses moi je ne travaille plus gratuitement :o)

    Ça ne marche pas, étrange ça, même en recopiant le lien ?

    Bon alors tu peux taper, heu, par sur moi, mais sur Gogole "FAQ Visual Basic"

    Sinon voici le texte de la FAQ :

    Question 13
    Comment ajouter un aperçu avant impression à mon application VB ?
    Il n'existe pas de contrôle permettant de le faire automatiquement, il faut le programmer manuellement. La méthode pour le programmer est plus simple depuis la version 5 de Visual Basic car l'objet Printer n'y est plus un objet système et il peut donc être passé en paramètre d'une fonction ou d'une procédure. Les fiches suivantes de la base de connaissance MSDN permettent
    de se documenter sur le sujet :
    
    Pour les versions VB 2.0 et VB 3.0 : http://support.microsoft.com/default.aspx?scid=kb;en-us;Q113236 
    Pour les versions VB 5.0 et VB 6.0 : http://support.microsoft.com/default.aspx?scid=kb;en-us;Q193379 
    Pour les versions 5.0 et 6.0 de Visual Basic, le principe est le suivant :
    
    Placer un contrôle PictureBox sur une feuille 
    Calculer le ratio entre ses dimensions et celles de l'objet Printer (cf. la routine proposée par Microsoft) 
    Redimensionner le PictureBox de façon qu'il soit une copie de la feuille physique (donc de l'objet printer) : cela permet d'obtenir le bon ratio longueur/largeur pour le PictureBox (qu'il ait le même que l'objet printer) 
    Ecrire la routine d'impression de façon à ce que l'on puisse passer en argument soit l'objet PictureBox, soit l'objet Printer 
    Par exemple pour Ecrire « Salut tout le monde », en Times New Roman, gras, Police 14, et souligné, en position X=200, Y=500 de la feuille et en voir l'aperçu, la routine serait la suivante :
    
    Private sub Impression_ou_Aperçu (objDestination as Object, Optional dRatio as double = 1)
    'dRatio est le rapport précédemment cité entre la taille du PictureBox et
    'celle de l'objet Printer
    
      With objDestination
        .FontName = "Times New Roman"
        .FontSize = 14 * dRatio
        .FontUnderline = true
        .CurrentX = 200 * dRatio
        .CurrentY = 500 * dRatio
      End With
    
      ObjDestination.Print "Salut tout le monde"
    
    End Sub
    
    Il ne reste plus qu'à appeler la routine comme ceci (prenons par exemple un PictureBox qui fasse le quart de taille de l'objet printer, le ratio est donc de 0,25)
    
    'Pour l'aperçu :
    Call Impression_ou_Aperçu (PictureBox, 0.25)
    
    'Pour l'impression :
    Call Impression_ou_Aperçu (Printer)
    
    Pour l'impression des images, le principe est le même, il suffit d'appliquer le fameux ratio dRatio aux dimensions et coordonnées de l'image à afficher sur l'un ou l'autre des objets destination et d'utiliser la fonction objDestination.PaintPicture.
     
    Date de publication : 07 juillet 2002
    Dernière modification : 07 juillet 2002
    Rubriques : Impression
    Mots-clés : aperçu, impression 

    Cordialement.

     


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe samedi 4 septembre 2010 15:00
    • Marqué comme réponse Alex Petrescu mardi 7 septembre 2010 09:24
    samedi 4 septembre 2010 06:05
  • merci beacoup EhJoe

     

    samedi 4 septembre 2010 11:04
  • De rien :o)
    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe samedi 4 septembre 2010 15:00
    samedi 4 septembre 2010 14:59