Définir la longueur des lignes dune textbox pour l'impression [Résolu]

- - Dernière réponse :  Utilisateur anonyme - 19 mai 2013 à 00:36
Bonjour a tous mes amis,

J'essaye depuis 2 jours de définir la longueur des ligne d'une textbox mais j'ai pas trouvé la solution la plus adéquat .


quand j'écris dans mon textbox et j'arrive a son extrémité le retour a ligne s’effectue automatiquement et quand j'imprime ce texte toutes ces lignes sont rapprocher


comment je peux définir la longueur des lignes a imprime
autrement, quelle l'instruction qui dit " imprime les lignes de la textbox un après un et a l'endroit que je veux " comme ça par exemple " aaaaaaaaaaa
aaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaa"

J'ai besoin d'aide SVP
et merci d'avance
Afficher la suite 

6 réponses

Meilleure réponse
3
Merci
Bon je ne sais pas si ça correspond au résultat attendu essaye:
'Dans une Form insère un bouton (button1), un textbox (Textbox1) multiline ou pas, et un PrintDocument (PrintDocument1);
'En suite pour imprimer le contenu du textbox sur ton imprimante par défaut, clique sur le bouton:
Option Explicit On
Option Strict On
Public Class Form1

    Dim Str As String

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Str = TextBox1.Text
        PrintDocument1.Print()
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim numChars As Integer
        Dim numLines As Integer
        Dim stringForPage As String
        Dim strFormat As New StringFormat()
        Dim PrintFont As Font
        PrintFont = TextBox1.Font
        Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)
        Dim sizeMeasure As New SizeF(e.MarginBounds.Width, e.MarginBounds.Height - PrintFont.GetHeight(e.Graphics))

        strFormat.Trimming = StringTrimming.Word
        e.Graphics.MeasureString(Str, PrintFont, sizeMeasure, strFormat, numChars, numLines)
        stringForPage = Str.Substring(0, numChars)
        e.Graphics.DrawString(stringForPage, PrintFont, Brushes.Black, rectDraw, strFormat)

        If numChars < Str.Length Then
            Str = Str.Substring(numChars)
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If
    End Sub
End Class



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 138 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Utilisateur anonyme
0
Merci
exemple
"aaaaaaaaaaa
aaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaa"
Commenter la réponse de achzouba
0
Merci
Bonjour,
Pourquoi avoir "laissé tomber" ton autre discussion sans même avoir pris la peine de répondre au personnes qui ont bien voulu t'aider ???

Sur quel type d'imprimante tu travailles?
Imprimante à tickets? série? parallèle?
Une matricielle? à jet d'encre?
....

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme
0
Merci
bonjour acive

je n'est pas rompu l'autre discussion j'ai voulu poser la question autrement , j'ai crus que vous n'avez pas compris ma question précédente ..

je travail sur une imprimante d'encre,

merci d'avance
Commenter la réponse de achzouba
0
Merci
Bonsoir acive

c'est bon j'ai trouvé la solution

merci beaucoup pour vos aides
Commenter la réponse de achzouba
0
Merci
c'est bon j'ai trouvé la solution

c'est bien !...

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme