Richtextbox: impression des images

Soyez le premier à donner votre avis sur cette source.

Vue 4 734 fois - Téléchargée 757 fois

Description

J'ai souvent vu dans le forum des personnes qui demandaient comment imprimer un Rich Text Box (RTB) contenant une ou plusieurs images.

Voilà une petite application sans prétention démontrant une manière d'effectuer la chose. La manière est d'utiliser le hDC de l'objet Printer.

Aussi, j'ai implémenté 2 méthodes pour ouvrir une boîte de dialogue pour insérer une image dans le RTB.
La première se fait via le contrôle OCX de Micro$oft (Common Dialog Control) et l'autre, pour les puristes, par appel d'API's.

Avant dernière chose: vous pourrez trouver quelques manipulations sur les menus (intégration d'images bitmap).

Et dernière chose: pour ceux qui veulent savoir comment fonctionnent les contrôles Toolbar et Coolbar, ils pourront trouver quelques exemples ici.

Source / Exemple :


'Tout est dans le zip

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
796
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
6
Ok, merci pour ton travail.
Messages postés
160
Date d'inscription
vendredi 27 janvier 2006
Statut
Membre
Dernière intervention
21 avril 2015

Salut Neo.balastik !

J'ai donc exploité votre module d'impression en y ajoutant donc l'option portrait ou paysage, à savoir :
Printer.Orientation = vbPRORLandscape '(paysage)
Printer.Orientation = vbPRORPortrait '(portrait)

(voir http://vbfrance.com/codes/YM_BASE-BASE-DONNEES_43594.aspx, si ce code peut vous être utile...)

Cordialement,
ym_trainz
Messages postés
160
Date d'inscription
vendredi 27 janvier 2006
Statut
Membre
Dernière intervention
21 avril 2015

Sûr !
Les bons codes, ça ne vieillit pas ;-)
Cordialement,
ym_trainz
Messages postés
796
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
6
Quand je pense que j'ai déposé cette source il y a plus de 5 ans...
Et un heureux de plus ;O)
Messages postés
160
Date d'inscription
vendredi 27 janvier 2006
Statut
Membre
Dernière intervention
21 avril 2015

Nickel de chez Nickel !!!!
22/10 ! Lol !

J'ai essayé pour l'impression paysage : (module1 printRtf)
a ajouter :
Printer.Orientation = vbPRORLandscape
avant
Printer.Print Space(1)

On peut donc ajouter facilement cette option dans le passage des argument de printRtf.

Donc, Bravo ! Adopté !

Cordialement,
ym_trainz
Afficher les 10 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.