hvb
Messages postés939Date d'inscriptionvendredi 25 octobre 2002StatutMembreDernière intervention27 janvier 2009
-
14 janv. 2003 à 19:54
saber2
Messages postés3Date d'inscriptionvendredi 12 décembre 2008StatutMembreDernière intervention15 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.
saber2
Messages postés3Date d'inscriptionvendredi 12 décembre 2008StatutMembreDernière intervention15 mars 2011 26 avril 2009 à 02:10
oh ci bon mai j cherche le code d'un bouton imprimer ki prend des information de la base de donne , les traiter sur une doc et les imprimer
merci
Toumar
Messages postés7Date d'inscriptionjeudi 26 juillet 2007StatutMembreDernière intervention29 octobre 2008 31 juil. 2008 à 11:54
Salut tout le monde,
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
Titi0467
Messages postés3Date d'inscriptionvendredi 12 mars 2004StatutMembreDernière intervention22 juin 2004 14 mars 2004 à 00:22
Therealkiller dit: Ok je viens de trouver la VRAI source MSDN...
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...
THEREALKILLER
Messages postés88Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention27 mars 2006 16 janv. 2004 à 20:42
c bien ce ke je pensai pour le html c different c con imprime le code html . Personne oré une solution . Merci
THEREALKILLER
Messages postés88Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention27 mars 2006 15 janv. 2004 à 02:57
Voila imports sinon ca marche pas ...
System.ComponentModel, System.Windows.Forms, System.Drawing, System.Drawing.Printing, and System.IO namespaces for this example.
THEREALKILLER
Messages postés88Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention27 mars 2006 15 janv. 2004 à 02:51
OK JE VIENS DE TROUVER LA VRAI SOURCE
MSDN
.......
THEREALKILLER
Messages postés88Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention27 mars 2006 15 janv. 2004 à 02:36
Effectivement -->> Fo rajouter Imports System.IO
THEREALKILLER
Messages postés88Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention27 mars 2006 14 janv. 2004 à 23:56
Private streamToPrint As StreamReader() marche pas
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 ???
THEREALKILLER
Messages postés88Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention27 mars 2006 14 janv. 2004 à 21:17
exactement ce ke je cherchai .
Une petite kestion : Ca marcherai avec un .html ???
ronanry
Messages postés190Date d'inscriptionlundi 25 novembre 2002StatutMembreDernière intervention22 décembre 2009 14 janv. 2003 à 20:28
je fais mon possible pour mettre le maximum de ce que je fais
(et vu que c que du .NET.....)
je sais que ca manque pour le moment...(et oui on est que des pionniers encore)
hvb
Messages postés939Date d'inscriptionvendredi 25 octobre 2002StatutMembreDernière intervention27 janvier 20093 14 janv. 2003 à 19:54
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