Discussion :

[azzouz_soui]

bonjour à tous.
j'ai fouille partout dans les forums pour trouver un code qui peut me servir pour imprimer un richtextbox mais en vain.
y a t-il quelqu'un qui peut me filer un code complet pour imprimer mon richtextbox.
merci d'avance

[OhMonBato]

bonjour à tous.
j'ai fouille partout

Vraiment ? En tapant "Imprimer RichTextbox" sur Google, je tombe la dessus :

Le premier lien te renvoit sur le deuxième
http://vb.developpez.com/faq/?page=Controles

http://support.microsoft.com/default...NoWebContent=1

[zazaraignée]

Et il y a un exemple dans l'aide en ligne...

[azzouz_soui]

bonjour
en utilisant l'exemple en ligne j'ai obtenu le résultat suivant "envoi d'une telecopie'.or mon but est d'imprimer le contenue du richtextbox sur une imprimante.
y a t-il quelqu'un qui peut m'aider à sortir de cette boucle.
merci

[LeForestier]

Bonjour,
J'ai plus l'habitude de répondre sur ce forum mais la question étant tellement simple que je sais pas m'en empèché.
Clic droit sur le RichTextBox et F1...
object.SelPrint(hdc)
A+

[zazaraignée]

bonjour
en utilisant l'exemple en ligne j'ai obtenu le résultat suivant "envoi d'une telecopie'.or mon but est d'imprimer le contenue du richtextbox sur une imprimante.
y a t-il quelqu'un qui peut m'aider à sortir de cette boucle.
merci

Est-ce que par le plus grand des hasard, l'imprimante par défaut de ton système serait un télécopieur ?

Si c'est de donner la possibilité à l'utilisateur de choisir une imprimante, tu dois chercher du côté du composant CommonDialog. Mais ça, c'est aussi mentionné dans l'aide en ligne. En particulier dans la rubrique qui traite de l'utilisation du RichTextBox et de sa méthode SelPrint.

[azzouz_soui]

bonjour ZAZARAIGNEE.
merci pour la réponse.
j'ai pas compris l'imprimante est télécopieur.
j'ai une imprimante jet d'encre reliée au pc.
mais après je vais une imprimante partagée sous réseau local.
si tu as d'autres éclaircissements
merci d'avance

[SfJ5Rpw8]

et qu'elle est l'imprimante par défaut ?

[azzouz_soui]

bonsoir.
l'imprimante par defaut??
il y a une seule imprimante jet d'encre 'hp 6210c' c'est ça qu'il faut specifier.
merci

[SfJ5Rpw8]

Ou en est tu, quel est le code que tu as utilisé ...?

[azzouz_soui]

bonjour
après remplissage du richtextbox via datagrid.
j'utilise ce bout de code que j'ai pique du forum.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub cmdprint_click()
Dim Impr As Printer
 Set Impr = Printer
richtextbox1.SelPrint Printer.hdc
Printer.EndDoc
End Sub

salutations.

[Delbeke]

Si ton code fonctionne, n'oublie pas le Tag

[azzouz_soui]

bonjour mr DELBEKE
j'ai demande de l'aide car le bout de code ne marche pas comme j'ai explique lors de ma dernière réponse.
je veux imprimer le contenu du richtexbox qui est rempli à partir d'une datagrid.
j'ai utilise le code suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub cmdprint_click()
Dim Impr As Printer
 Set Impr = Printer
richtextbox1.SelPrint Printer.hdc
Printer.EndDoc
End Sub

quand je click sur imprimer il me sort une fenêtre "cet assistant vous aide à créer et envoyer une télécopie.
merci

[Delbeke]

Il semeblerait que l'imprimante par défaut de ton poste soit une pseudo imprimante utilisée pour faire de la télécopie. C'est la seule explication à l'apparition de cet assitant qui n'est pas du ressort de vb, mais de windows lui même.

[zazaraignée]

bonjour ZAZARAIGNEE.
merci pour la réponse.
j'ai pas compris l'imprimante est télécopieur.
j'ai une imprimante jet d'encre reliée au pc.
mais après je vais une imprimante partagée sous réseau local.
si tu as d'autres éclaircissements
merci d'avance

moi non plu je pas compri

[azzouz_soui]

bonjour à tous
je suis toujours en panne en ce qui concerne l'impression du contenu du richtextbox.
le problème du télécopie que j'ai vous demande avant est réglé c'est un problème windows,il fallait réinstaller l'imprimante.
le problème de l'impression chez moi persiste toujours.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub cmdprint_click()
Dim Impr As Printer
Set Impr = Printer
richtextbox1.SelPrint Printer.hdc
Printer.EndDoc
End Sub

salutations.

[SfJ5Rpw8]

Et c'est quoi le probléme maintenant ...? un message ?

[azzouz_soui]

bonsoir.
merci pour la réponse.
aucun message ,rien n'est imprimé .
seule la fenêtre ci_jointe reste ouverte.
salutations.

[OhMonBato]

Pas la peine de changer ton fichier joint pour moi, mais personnellement j'ai une nette préférence pour les fichiers 'zip' plutot que 'rar', c'est reconnu par windows et ne nécessite pas de programme supplémentaire pour etre ouvert.
Désolé si je suis hors sujet...

[SfJ5Rpw8]

Il y as quoi sur cette fenêtre ?