IMPRIMER LE CONTENU D'UN RICHTEXTBOX imprimer, print, impression, texte, richtexbox, Source N°2171

Information sur la source

Catégorie :Imprimante Classé sous : imprimer, print, impression, texte, richtexbox Niveau : Initié Date de création : 09/02/2002 Date de mise à jour : 09/02/2002 01:43:47 Vu : 10 313

Auteur : Nix

Site perso

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

6,56 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (9)

Ajouter un commentaire et/ou une note

Description

Source

' Mettez un Common Dialog nommé "MonDialog"
' Mettez un RichTextBox nommé "MonRTF"
' Et appelez la fonction comme ceci pour imprimer le contenu du RichTextBox :
'
' Ret = ImprimeRTF(MonDialog, MonRTF)
'
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
Printer.Print ""
LeDialog.SelPrint .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

' Mettez un Common Dialog nommé "MonDialog"
' Mettez un RichTextBox nommé "MonRTF"
' Et appelez la fonction comme ceci pour imprimer le contenu du RichTextBox :
'
' Ret = ImprimeRTF(MonDialog, MonRTF)
'

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

        Printer.Print ""
        LeDialog.SelPrint .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

Sources du même auteur

Toutes les sources de Nix

Sources de la même categorie

Toutes les sources de la catégorie Imprimante

Sources en rapport avec celle ci

Commentaires

Commentaire de shivan le 09/02/2002 14:23:00

alors voici mes commentaires :
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
Commentaire de Crazyht le 12/02/2002 00:39:00 administrateur CS

Arf y en a deja un qui c permis de s'approprier ton src

Good Job NIX .

A++
Hervé
Commentaire de neojoce le 19/02/2002 01:33:06

Hooooooooooooooooooooooooooooooooooooooooooooooooooooooooo !!!!!!!!!!

Respect Nix ..........................................................................

9/10 ...
Commentaire de gg00xiv le 15/08/2002 03:33:09

ca ne marche pas, et je pense que cela viens de la :

LeDialog.SelPrint .hdc

qui a mon avis ne veux rien dire, faudrait peutetre tester les sources avant de les envoyer :)
Commentaire de Dalida le 20/08/2002 12:42:55

merci à Shivan pour la correction,
ç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...
Commentaire de collegue le 24/10/2002 20:28:39

Quand j'imprime mon texte, il manque la fin et plus ce que j'imprime est long, plus il me manque du texte !!!
Commentaire de devsurf le 28/04/2003 02:53:47

Trés pratique, merci
Commentaire de Juntao le 24/05/2004 16:25:23

'lut tlm

Ca fonctionne egalement sans le CommonDialog, en passant directement le hDC de l'objet Printer a la RTB

++
Commentaire de gnieark le 02/11/2006 16:49:13

le code avec les corrections:

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

Ajouter un commentaire

Discussions en rapport avec ce code source

Impression d'un form par bremondpierrejean

Impression par i2c03a

Relance :Impression par hamardfred

Impression par hamardfred

relance impression par Tonin39

impression image par protozorus

Impression d'un fichier script d'impression par kyle

Impression par scottmat

impression graphique par S4ngo

Comment imprimer av Access ? par mourier2003