Impression d'un textbox ENTIER

[Résolu]
Signaler
Messages postés
2
Date d'inscription
jeudi 19 février 2009
Statut
Membre
Dernière intervention
2 mars 2009
-
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010
-
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

Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010

bonsoir
 il semblerait qu'il manque la méthode "EndDoc", qui envoie les données au spouler
Printer.EndDoc

CNTJC
Messages postés
2
Date d'inscription
jeudi 19 février 2009
Statut
Membre
Dernière intervention
2 mars 2009

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.

@+ 
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010

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