tiparire fisier text

  Dim lpp As Single = 0
		Dim yPos As Single = 0
		Dim count As Integer = 0
		Dim leftMargin As Single = ev.MarginBounds.Left
		Dim topMargin As Single = ev.MarginBounds.Top
		Dim line As String
		lpp = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)
		Dim lin As String
		While (count < lpp)
			line =streamToPrint.ReadLine()
			ev.PageSettings.Landscape = True
			count = count + 1
			yPos = topMargin + (count * printFont.GetHeight(ev.Graphics))
			If Microsoft.VisualBasic.Right(line, 1) = Chr(12) Then
				count = ev.MarginBounds.Height + 20
			End If
			If Microsoft.VisualBasic.Left(line, 1) = Chr(12) Then
				lin = line
				line = vbCrLf
				count = ev.MarginBounds.Height
				yPos = topMargin + (count * printFont.GetHeight(ev.Graphics))
				ev.Graphics.DrawString(lin, printFont, Brushes.Black, leftMargin, _
				yPos, New StringFormat)
			End If
			Console.WriteLine(lin)
			ev.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, _
					yPos, New StringFormat)
		End While
		If (line <> Nothing) Then
			ev.HasMorePages = True
			ev.PageSettings.Landscape = True
		Else
			ev.HasMorePages = False
			ev.PageSettings.Landscape = True
		End If
	End Sub

Edited by RAZ, 09 May 2006 - 13:35.

claudiugiurgiu, on May 9 2006, 13:00, said:

  Dim lpp As Single = 0
	...............................................
	End Sub