Imprimir un Listview
Hola a todos, tengo un problemita y es que necesito imprimir un listview con los datos que tengo en él. Gracias
1 respuesta
Respuesta de orande
1
Salvo que quieras hacer "virguerias" con la impresión, es relativamente sencillo:
Private Sub PrintListView()
Dim Index As Integer
On Error GoTo TratarError
If ListView1.ListItems.Count = 0 Then Exit Sub
For Index = 1 To ListView1.ListItems.Count
Printer.Print ListView1.ListItems(Index).Text
Next Index
Printer.EndDoc
Exit Sub
TratarError:
Printer.KillDoc
MsgBox Err.Description, vbExclamation, "Error imprimiendo"
End Sub
Private Sub PrintListView()
Dim Index As Integer
On Error GoTo TratarError
If ListView1.ListItems.Count = 0 Then Exit Sub
For Index = 1 To ListView1.ListItems.Count
Printer.Print ListView1.ListItems(Index).Text
Next Index
Printer.EndDoc
Exit Sub
TratarError:
Printer.KillDoc
MsgBox Err.Description, vbExclamation, "Error imprimiendo"
End Sub
