Nabucodonosor
13 de Marzo del 2005

Hola a todos

El problema que tengo es que necesito imprimir los datos de un listview, pero como son demasiados se tienen que imprimir en varias hojas, pero no lo hace, el codigo que utilizo es el sig:
With ListView1.ListItems
For j = 1 To .Count
Printer.CurrentX = 1000
Printer.CurrentY = ren
Printer.Print .Item(j)
Printer.CurrentX = 2300
Printer.CurrentY = ren
Printer.Print .Item(j).SubItems(1)
Printer.CurrentX = 5500
Printer.CurrentY = ren
Printer.Print .Item(j).SubItems(2)
Printer.CurrentX = 6500
Printer.CurrentY = ren
Printer.Print .Item(j).SubItems(3)
Printer.CurrentX = 7500
Printer.CurrentY = ren
Printer.Print .Item(j).SubItems(4)
ren = ren + 200
If (ren = 13000) Then
Printer.NewPage
End If
Next j
A lo que me llega ren = 13000 tiene que imprimirme en una nueva hoja. Tal como imprime la primera todas las filas y columnas, pero no lo hace ya que me imprime solo una fila a la vez en una hoja diferente cada fila y columna

Cualquier ayuda que me aporten les agradezco de antemano

El Burrito
13 de Marzo del 2005

lo miré muy por arriba pero me parece q tenés q inicializar "ren".
If (ren = 13000) Then
Printer.NewPage
REN = 0
End If

espero haberte ayudado...
(acá nadie contesta nada)