Imprimer le contenu d'un richtextbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 057 fois - Téléchargée 45 fois


Contenu du snippet


Source / Exemple :


' 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

A voir également

Ajouter un commentaire Commentaires
Messages postés
53
Date d'inscription
jeudi 17 août 2006
Statut
Membre
Dernière intervention
22 octobre 2010

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
Utilisateur anonyme
'lut tlm

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

++
Messages postés
148
Date d'inscription
dimanche 13 octobre 2002
Statut
Membre
Dernière intervention
13 novembre 2008

Trés pratique, merci
Messages postés
17
Date d'inscription
vendredi 13 septembre 2002
Statut
Membre
Dernière intervention
21 janvier 2003

Quand j'imprime mon texte, il manque la fin et plus ce que j'imprime est long, plus il me manque du texte !!!
Messages postés
6728
Date d'inscription
mardi 14 mai 2002
Statut
Contributeur
Dernière intervention
11 janvier 2016

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...
Afficher les 9 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.