Imprimir
Hola;
Cómo hago para imprimir el contenido de un listview en vb.
Gracias...
Cómo hago para imprimir el contenido de un listview en vb.
Gracias...
Mari estoy con la misma problematica que vos el dia 11 de noviembre de 2003 me gustaria saber si pudiste resolver la problematica de imprimir el contenido de un ListView, de ser asi...me podrias dar una mano?
bueno, primero que nada para imprimir un lvw desde vb tienes que hacerlo mediante el printer recorriendo cada uno de los elementos con un bucle, algo asi:
es una porcion de codigo que yo utilizo:
Private Sub ImprimirRes()
Dim EmpA As String
renglon = 2000
With LvwFac.ListItems
'aqui imprimo otras cosas en el reporte pero las he quitado para que no se enreden
For i = 1 To .Count
Printer.Font = "Courier New"
Printer.FontSize = 8
Printer.CurrentX = 1000
Printer.CurrentY = renglon
Printer.Print .Item(i)
Printer.CurrentX = 2200
Printer.CurrentY = renglon
Printer.Print .Item(i).SubItems(1)
Printer.CurrentX = 3400
Printer.CurrentY = renglon
Printer.Print .Item(i).SubItems(2)
renglon=renglon + 200
Next i
End With
Printer.EndDoc
End Sub
espero les sirva de algo
es una porcion de codigo que yo utilizo:
Private Sub ImprimirRes()
Dim EmpA As String
renglon = 2000
With LvwFac.ListItems
'aqui imprimo otras cosas en el reporte pero las he quitado para que no se enreden
For i = 1 To .Count
Printer.Font = "Courier New"
Printer.FontSize = 8
Printer.CurrentX = 1000
Printer.CurrentY = renglon
Printer.Print .Item(i)
Printer.CurrentX = 2200
Printer.CurrentY = renglon
Printer.Print .Item(i).SubItems(1)
Printer.CurrentX = 3400
Printer.CurrentY = renglon
Printer.Print .Item(i).SubItems(2)
renglon=renglon + 200
Next i
End With
Printer.EndDoc
End Sub
espero les sirva de algo
