Ecco subito il codice:
------------------------------------------------------------
Dim Testo As String = RichTextBox1.Text
Static Lunghezza As String
Static Posizione As Integer
Dim Carattere As Integer
Dim Linea As Integer
Dim Font As New Font("Arial",13)
Dim Format As New StringFormat(StringFormatFlags.LineLimit)
Dim Rectangle As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)
Dim Size As New SizeF(e.MarginBounds.Width, e.MarginBounds.Heigh
Lunghezza = Len(Testo)
Format.Trimming = StringTrimming.Word
e.Graphics.MeasureString(Mid(Testo, Posizione + 1), Font, Size, Format, Carattere, Linea)
e.Graphics.DrawString(Mid(Testo, Posizione + 1), Font, Brushes.Black, Rectangle, Format)
Posizione += Carattere
If Posizione < Lunghezza Then
e.HasMorePages = True
Else
e.HasMorePages = False
End If
------------------------------------------------------------
Spero che il frammento di codice possa servirvi.
Stampare i documenti
Pubblicato prima del 07/05/2008 - Informazione assente
Conoscenze Avanzate: C,VB.NET Base:Assembler MIPS,HTML,PHP,CSS,JavaScript. Stò imparando il C# e Java
|
Aggiungi un commento