imprimir con print un list view
Publicado por
Natalia (1 intervención) el 06/12/2004 16:36:52
Es sensillo pero saca de apuros
Printer.Print " "
Printer.Print "----------------------------------------------------------"
Printer.Print "Listado de imputados Página: " + Str(Printer.Page)
Printer.Print "----------------------------------------------------------"
For i = 0 To Me.view.ColumnHeaders.Count - 1
Printer.Print " "; Me.view.ListItems(i + 1).Text; " "; Me.view.ListItems.Item(i + 1).SubItems(1) & _
Me.view.ListItems.Item(i + 1).SubItems(2) & " " & _
Me.view.ListItems.Item(i + 1).SubItems(3) & " " & _
Me.view.ListItems.Item(i + 1).SubItems(4) & " " & _
Printer.Print " -------------------------------------------------------------------------------------------------------------------"
ImpLinea = ImpLinea + 1
If ImpLinea = 30 Then
Printer.NewPage
ImpLinea = 0
End If
Next