IMPRIMER UN FICHIER TEXTE EN DOTNET
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
-
14 janv. 2003 à 19:54
saber2 Messages postés 3 Date d'inscription vendredi 12 décembre 2008 Statut Membre Dernière intervention 15 mars 2011 - 26 avril 2009 à 02:10
saber2 Messages postés 3 Date d'inscription vendredi 12 décembre 2008 Statut Membre Dernière intervention 15 mars 2011 - 26 avril 2009 à 02:10
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5650-imprimer-un-fichier-texte-en-dotnet
https://codes-sources.commentcamarche.net/source/5650-imprimer-un-fichier-texte-en-dotnet
26 avril 2009 à 02:10
merci
31 juil. 2008 à 11:54
J'ai modifié le bouzin un petit peu, dans le cas où la ligne soit trop longue. Avec ce code, elle se termine à droite de la feuille.
Du coup, il faut dessiner un rectangle dans lequel sera imprimée la ligne et si elle est plus longue que le rectangle, le retour à la ligne se fait automatiquement.
Private Sub pd_PrintPage(ByVal sender As Object, ByVal ev As Printing.PrintPageEventArgs)
Dim linesPerPage As Single = 0
Dim yPos As Single = 0
Dim count As Integer = 0
Dim leftMargin As Single = 50
Dim topMargin As Single = 70
Dim Line As String = Nothing
' nombre de lignes par page
linesPerPage = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)
' impression de chaque ligne de la page
While count < linesPerPage
Line = streamToPrint.ReadLine()
If Line Is Nothing Then
Exit While
End If
yPos = topMargin + count * printFont.GetHeight(ev.Graphics)
Dim rectangle As New RectangleF(leftMargin, yPos, 700, 150)
ev.Graphics.DrawString(Line, printFont, Brushes.Black, rectangle)
'mesure la longueur de la chaine pour savoir si il faut l'imprimer sur une ou plusieurs lignes
Dim stringSize As New SizeF
stringSize = ev.Graphics.MeasureString(Line, printFont)
count += 1 + (stringSize.Width \ 700) 'si la longueur est > 700, alors l'impression se fait sur x lignes
End While
' s'il reste des lignes, on imprime une autre page
If Not (Line Is Nothing) Then
ev.HasMorePages = True
Else
ev.HasMorePages = False
End If
End Sub
14 mars 2004 à 00:22
OUUUUUU??
Je démarre sous .net avec la migration d'une appli de compta avec des tones de Printer.Print :((((
Alors un petit coup de pouce serait cool pour que l'impression de mes états refonctionne...
16 janv. 2004 à 20:42
15 janv. 2004 à 02:57
System.ComponentModel, System.Windows.Forms, System.Drawing, System.Drawing.Printing, and System.IO namespaces for this example.
15 janv. 2004 à 02:51
MSDN
.......
15 janv. 2004 à 02:36
14 janv. 2004 à 23:56
Par contre Private streamToPrint As System.IO.StreamReader() OUI
ensuite malgre ke le Private streamToPrint As System.IO.StreamReader() marche
str = "C:\My Documents\MyFile.txt"
Try
streamToPrint = New System.IO.StreamReader(str)
marche pas ....
Et kan je f un copier coller de ta source les meme erreurs o nivo du streamreader . Niorait il pas une reference a rajouter ???
14 janv. 2004 à 21:17
Une petite kestion : Ca marcherai avec un .html ???
14 janv. 2003 à 20:28
(et vu que c que du .NET.....)
je sais que ca manque pour le moment...(et oui on est que des pionniers encore)
14 janv. 2003 à 19:54