Imprimer un richtextbox (ca marche!!)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 290 fois - Téléchargée 50 fois

Contenu du snippet

Pour imprimer le texte d'un richtextbox avec tous les attributs comme gras italique et souligné.
Le Richtextbox s'apelle TEXT1
Le commondialog s'apelle DLGCOMMONDIALOG

Source / Exemple :


' Text1 est un richtextbox
'dlgCommonDialog est un Commondialog

Dim Impr As Printer
Set Impr = Printer
Impr.Print "Test : " 'ou autre chose que vous voulez :)
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Impr.ScaleMode = vbInches
Impr.CurrentX = 2
Impr.CurrentY = 2
Text1.SelPrint Impr.hDC
Impr.EndDoc
Text1.SelStart = 0
Text1.SelLength = 0

A voir également

Ajouter un commentaire Commentaires
Messages postés
15
Date d'inscription
jeudi 29 juillet 2004
Statut
Membre
Dernière intervention
4 avril 2005

marche po pentoute
Messages postés
298
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2013
1
ben moi y marche ce beau code : error printer y me dit.
et que vient faire le commondialog s'il n'apparait pas dans le code ?
Messages postés
49
Date d'inscription
mardi 1 février 2005
Statut
Membre
Dernière intervention
16 mai 2009

Il m'a rendu service également copié ou pas je m'enfous l'essentiel c'est qu'il nous a fourni une aide on est ici pour nous entraider non pour faire de la concurrence.
j te mets 9/10.
Messages postés
575
Date d'inscription
dimanche 23 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2012

zopzop ...
Messages postés
1
Date d'inscription
mercredi 9 octobre 2002
Statut
Membre
Dernière intervention
9 octobre 2002

2 semaines de recherche ? J'ai trouvé ce code en 2 minutes sur le cd Msdn Library fourni avec VB6 :).
Afficher les 13 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.