necesito imprimir un listview

18/11/2004 - 13:50 por Alberto | Informe spam

Para ello lo recorro con este algoritmo que no funciona,
simplemente la impresora se queda como sin nada:

Private Sub imprime_listviu(lista As listview)
Dim ImpLinea As Integer
For i = 0 To lista.ListItems.Count - 1
Printer.Print " " & lista.ListItems(i + 1).Text_
& " "& lista.ListItems.Item(i + 1).SubItems(1)_
& vbCrLf
ImpLinea = ImpLinea + 1
If ImpLinea = 30 Then
Printer.NewPage
ImpLinea = 0
End If
Next
End Sub

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 pablo crosio

18/11/2004 - 15:49 | Informe spam

hola!

aparentemente estas trabajando con VB6

proba haciendo al final de todo Printer.EndDoc a ver si funciona

pd: existe una lista dedicada especificamente a VB6 en las news (Visual
Basic a secas)

salu2!!

pablo

"Alberto" escribió:

Para ello lo recorro con este algoritmo que no funciona,
simplemente la impresora se queda como sin nada:

Private Sub imprime_listviu(lista As listview)
Dim ImpLinea As Integer
For i = 0 To lista.ListItems.Count - 1
Printer.Print " " & lista.ListItems(i + 1).Text_
& " "& lista.ListItems.Item(i + 1).SubItems(1)_
& vbCrLf
ImpLinea = ImpLinea + 1
If ImpLinea = 30 Then
Printer.NewPage
ImpLinea = 0
End If
Next
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida