Ca fonctionne egalement sans le CommonDialog, en passant directement le hDC de l'objet Printer a la RTB
++
devsurf
Messages postés148Date d'inscriptiondimanche 13 octobre 2002StatutMembreDernière intervention13 novembre 2008 28 avril 2003 à 02:53
Trés pratique, merci
cs_collegue
Messages postés17Date d'inscriptionvendredi 13 septembre 2002StatutMembreDernière intervention21 janvier 2003 24 oct. 2002 à 20:28
Quand j'imprime mon texte, il manque la fin et plus ce que j'imprime est long, plus il me manque du texte !!!
Dalida
Messages postés6728Date d'inscriptionmardi 14 mai 2002StatutContributeurDernière intervention11 janvier 2016 20 août 2002 à 12:42
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...
gg00xiv
Messages postés656Date d'inscriptionmercredi 22 août 2001StatutMembreDernière intervention11 mars 200513 15 août 2002 à 03:33
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 :)
neojoce
Messages postés134Date d'inscriptionjeudi 7 février 2002StatutMembreDernière intervention16 juin 2002 19 févr. 2002 à 01:33
cs_Crazyht
Messages postés1522Date d'inscriptionmardi 18 décembre 2001StatutMembreDernière intervention21 août 20108 12 févr. 2002 à 00:39
Arf y en a deja un qui c permis de s'approprier ton src
Good Job NIX .
A++
Hervé
cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003 9 févr. 2002 à 14:23
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 !!! ;-)
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