Hola Foros profín despues de tantas trabas se econtro la solucuión gracias a mi compañero de trabajo milton quien es un capo en estas cosas de la progrmación y logica bueno la SOLUCIÖN es :
Código vb:
Ver originalPrivate Sub prt_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
' La fuente que vamos a usar para imprimir.
Dim printFont As System.Drawing.Font = New Font("Arial", 8) 'prtFont
Dim topMargin As Double = e.MarginBounds.Top
Dim yPos As Double = 0
Dim linesPerPage As Double = 0
Dim count As Integer = 0
Dim texto As String = ""
' Calculamos el número de líneas que caben en cada página.
linesPerPage = e.MarginBounds.Height / printFont.GetHeight(e.Graphics)
While count < linesPerPage AndAlso i < Datos.Count
Dim info As BoInfoBOLETA = Datos(i)
e.Graphics.DrawRectangle(New Pen(Color.Red, 1), -75, -75, 1585, 639)
e.Graphics.DrawString("24 del 01/01/2011 al 31/02/2011", printFont, Brushes.Black, 170, 60)
e.Graphics.DrawString(CStr(Format(Date.Now, "dd/MM/yyy")), printFont, Brushes.Black, 470, 60)
e.Graphics.DrawString(info.codigo, printFont, Brushes.Black, 70, 80)
e.Graphics.DrawString(info.nombres, printFont, Brushes.Black, 200, 80)
.
.
.
.
.
.
.
.
.
count = CInt(count + 35.61)
i = i + 1
End While
If i < Datos.Count Then
e.HasMorePages = True
Else
e.HasMorePages = False
i = 0
End If
Bueno mi página tiene 35 lineas aproximadamene cada vez que cumple la condicion se llena de data mi primera lista de lo contario se vuelve a ejecutar el printpage pero ya en la siguiente. bueno esa es la sulución y si sale bueno porfin puedo ver los 712 trabajadores y la data qeu tiene cada uno uuuFFF
gracias a ti aquaventus
por tu tiempo y ayuda.
Besos
cuidate y gracias estamos en contacto
