Visual Basic - ordenar formularios

Life is soft - evento anual de software empresarial
 
Vista:

ordenar formularios

Publicado por yo (1 intervención) el 18/11/2004 11:34:55
Como podria en un formulario en el que aparecen 4 registros por pagina, ordenarlos para que me aparecieran el primero arriba en la primera pagina, el segundo arriba en la segunda pagina... asi hasta el numero de paginas, luego seguir en la segunda posicion de la primera pagina.
La idea es que al imprimirlos en una imprenta y cortar se queden los cuatro montones ordenados.

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

RE:ordenar formularios

Publicado por rodrigo (140 intervenciones) el 19/11/2004 16:35:47
la verdad no lo probé, por falta de tiempo, pero creo que este codigo va por buen camino

Private Sub imprimir()
Dim NFolios As Integer, Nregxpag As Integer
Dim LargoPapel As Integer
Dim a As Integer, b As Integer

For a = 1 To NFolios Step Nregxpag
For b = 0 To Nregxpag - 1
Printer.CurrentX = 1000 'posicion de la impresion
Printer.CurrentY = LargoPapel / Nregxpag * b
Printer.Print a + (b * NFolios / Nregxpag)

Next b
Printer.NewPage
Next a

Printer.EndDoc

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar