Impression d'un textbox ENTIER

Résolu
Aromatherapie Messages postés 2 Date d'inscription jeudi 19 février 2009 Statut Membre Dernière intervention 2 mars 2009 - 24 févr. 2009 à 23:25
cnt Messages postés 219 Date d'inscription lundi 21 novembre 2005 Statut Membre Dernière intervention 20 décembre 2010 - 3 mars 2009 à 00:51
bonjour,

voilà plusuieurs heures que fouine que je test en vain quelques routines qui sont mal ecrites ,ne fonctionnent pas, je commence à perdre patience.

 Mon soucis et de vouloir imprimer le contenu d'un textbox (VB6) contenant plus de 200 caractères. Comme bien entendu la fonction printer.print à ses limites, arrivée en bout de ligne sur le papier il manque le reste des données.

C'est pourquoi je vous implore de bien vouloir me transmettre une procedure expliquée et qui fonctionne pour pouvoir imprimer ce Text1.Text de misère...

Bien à vous.

3 réponses

cnt Messages postés 219 Date d'inscription lundi 21 novembre 2005 Statut Membre Dernière intervention 20 décembre 2010 1
25 févr. 2009 à 00:17
bonsoir
 il semblerait qu'il manque la méthode "EndDoc", qui envoie les données au spouler
Printer.EndDoc

CNTJC
3
Aromatherapie Messages postés 2 Date d'inscription jeudi 19 février 2009 Statut Membre Dernière intervention 2 mars 2009
2 mars 2009 à 21:29
merci a toi  cnt

mais le soucis n'est pas là, ma procedure ce temine bien par printer.endDoc.

J'ai lu dans d'autres forums des decoupages  de chaine de caracteres mais je ne pige rien à leurs methodes (pas d'explication) les variables sont incomprensibles. ca commence à me courrir, je crois que je vais abandonner cette procedure.

@+ 
0
cnt Messages postés 219 Date d'inscription lundi 21 novembre 2005 Statut Membre Dernière intervention 20 décembre 2010 1
3 mars 2009 à 00:51
Bonsoir
A propos du TextBox, est-ce que la propriété "Multilines" est à True?
Comme tu parles de découpage de chaine, il semblerai que non.
Je joins un exemple de l'aide VB6, pour la méthode d'impression "Print"
<title>NewPage, méthode, exemple</title><style><![CDATA[import url(msdn_ie4.css);]]></style><link disabled= "" href="msdn_ie3.css" rel="stylesheet" />
Private Sub Form_Click ()
   Dim HWidth, HHeight, I, Msg   ' Déclare les
                                 ' variables.
   On Error GoTo ErrorHandler   ' Définit la gestion
                                 ' des erreurs.
   Msg = "Ceci est imprimé sur la page"
   For I = 1 To 2   ' Définit deux itérations.
      ' Lit la moitié de la largeur.
      HWidth = Printer.TextWidth(Msg) / 2
      ' Lit la moitié de la longueur.
      HHeight = Printer.TextHeight(Msg) /2   
      Printer.CurrentX = Printer.ScaleWidth / 2 - HWidth
      Printer.CurrentY = Printer.ScaleHeight / 2 - Hheight
      ' Imprime.
      Printer.Print Msg &amp; Printer.Page &amp; "."
      Printer. NewPage    ' Envoie une nouvelle page.
   Next I
   Printer.EndDoc   ' Impression terminée.
   Msg  = "Deux pages contenant chacune une " &amp; _ 
         "seule ligne de texte "
   Msg = Msg &amp; " centrée ont été envoyées à" &amp; _
         " l'imprimante."
   MsgBox Msg   ' Affiche le message.
   Exit Sub
ErrorHandler:
   MsgBox "L'impression ne s'est pas déroulée " &amp; _
         " correctement."
   Exit Sub
End Sub


Garde espoir
Salut

CNTJC
0
Rejoignez-nous