Richtextbox: impression des images

Soyez le premier à donner votre avis sur cette source.

Vue 5 045 fois - Téléchargée 833 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
Neo.balastik Messages postés 796 Date d'inscription jeudi 17 mai 2001 Statut Membre Dernière intervention 5 mai 2009 7
23 oct. 2007 à 09:49
Ok, merci pour ton travail.
cs_ym_trainz Messages postés 160 Date d'inscription vendredi 27 janvier 2006 Statut Membre Dernière intervention 21 avril 2015
23 oct. 2007 à 00:00
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
cs_ym_trainz Messages postés 160 Date d'inscription vendredi 27 janvier 2006 Statut Membre Dernière intervention 21 avril 2015
19 oct. 2007 à 20:54
Sûr !
Les bons codes, ça ne vieillit pas ;-)
Cordialement,
ym_trainz
Neo.balastik Messages postés 796 Date d'inscription jeudi 17 mai 2001 Statut Membre Dernière intervention 5 mai 2009 7
19 oct. 2007 à 16:01
Quand je pense que j'ai déposé cette source il y a plus de 5 ans...
Et un heureux de plus ;O)
cs_ym_trainz Messages postés 160 Date d'inscription vendredi 27 janvier 2006 Statut Membre Dernière intervention 21 avril 2015
18 oct. 2007 à 23:43
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

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.