Visual Basic.NET - Imprimir un DataTable

   
Vista:

Imprimir un DataTable

Publicado por Benjy (1 intervención) el 17/07/2009 22:41:19
Hola, estoy desarrollando un sistema en el cual tengo que relizar unos reportes, y tengo problemas para imprimir un DataTable, ya que las columnas se desordenan al pasar los datos a String, el codigo que utilizo en el evento PrintPage es este:

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim lista As New ArrayList(reporte.Rows.Count)
Dim cadenas As String = ""

For cont As Integer = 0 To reporte.Rows.Count - 1
For cont2 As Integer = 0 To reporte.Columns.Count - 1
If RTrim(reporte.Rows(cont).Item(cont2).ToString.ToUpper.Count) >= 8 Then
cadenas = cadenas & RTrim(reporte.Rows(cont).Item(cont2).ToString.ToUpper)
cadenas = cadenas & vbTab

ElseIf Trim(reporte.Rows(cont).Item(cont2).ToString.ToUpper.Count) <= 7 Then
cadenas = cadenas & RTrim(reporte.Rows(cont).Item(cont2).ToString.ToUpper)
cadenas = cadenas & vbTab & vbTab
End If

Next
cadenas = cadenas & vbCrLf
Next

e.Graphics.DrawString(cadenas, New Font("Arial", 4, FontStyle.Regular), Brushes.Black, 10, 10)
End Sub

con los bucles paso celda por celda a String, brinco de renglon, y dependiendo de cuantos caracteres es el contenido de esta, le doy un Tab o 2 Tab, para ordenarlas, pero aun asi, algunas quedan desordenadas.

De antemano gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder