IMPRIMER LE CONTENU D'UN RICHTEXTBOX
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
-
9 févr. 2002 à 14:23
gnieark Messages postés 53 Date d'inscription jeudi 17 août 2006 Statut Membre Dernière intervention 22 octobre 2010 - 2 nov. 2006 à 16:49
gnieark Messages postés 53 Date d'inscription jeudi 17 août 2006 Statut Membre Dernière intervention 22 octobre 2010 - 2 nov. 2006 à 16:49
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2171-imprimer-le-contenu-d-un-richtextbox
https://codes-sources.commentcamarche.net/source/2171-imprimer-le-contenu-d-un-richtextbox
2 nov. 2006 à 16:49
Function ImprimeRTF(LeDialog As CommonDialog, LeRtf As RichTextBox) As Boolean
On Local Error GoTo Error_Handler:
With LeDialog
.CancelError = True
.Flags = cdlPDReturnDC + cdlPDNoPageNums
If LeRtf.SelLength = 0 Then
.Flags = .Flags + cdlPDAllPages
Else
.Flags = .Flags + cdlPDSelection
End If
.ShowPrinter
LeRtf.SelPrint (Printer.hDC)
Printer.EndDoc
ImprimeRTF = True
End With
Exit Function
Error_Handler:
If Err <> cdlCancel Then
ImprimeRTF = False
MsgBox "Erreur " & Err & "; " & Error
End If
End Function
24 mai 2004 à 16:25
Ca fonctionne egalement sans le CommonDialog, en passant directement le hDC de l'objet Printer a la RTB
++
28 avril 2003 à 02:53
24 oct. 2002 à 20:28
20 août 2002 à 12:42
ça me change des pertes de temps à ouvrir des sources bidons!
noté 9, je ne mets jamais de 10 même si je suis débutant...
15 août 2002 à 03:33
LeDialog.SelPrint .hdc
qui a mon avis ne veux rien dire, faudrait peutetre tester les sources avant de les envoyer :)
19 févr. 2002 à 01:33
Respect Nix ..........................................................................
9/10 ...
12 févr. 2002 à 00:39
Good Job NIX .
A++
Hervé
9 févr. 2002 à 14:23
super, ca va bien me servir !!!!
sinon, attention, lorsqu'on recopie le code, a enlever l'espace qui se trouve entre LeRtf et .SelLength, et c'est pas LeDialog.SelPrint, mais LeRtf.SelPrint. enfin en mettant Printer.Print "", tu fait imprimer une page blanche pour rien... meme si c'est indiqué de faire ca dans la doc, ne le faite as ca ne sert pas... enfin pour mon cas perso, ca ne sert pas !
et juste pour ceux ke ca interesse, voici une version ultra simplifiée, qui imprime tout le contenu de la RichTextBox sur l'imprimante principale :
Sub ImprimeRTF(LeRtf As RichTextBox)
LeRtf.SelPrint Printer.hDC
Printer.EndDoc
End Function
bon sinon tres bon code : 9/10 pour les 2-3 erreurs !!! ;-)
$hîv@n