Autor Tema: Como Puede Imprimir Los Datos De Un Listview (Leído 2514 veces)

Daniel_PC · « **en:** Sábado 3 de Enero de 2004, 03:00 »

Como puede imprimir los datos de un Listview?
Gracias...

Brroz · « **Respuesta #1 en:** Jueves 8 de Enero de 2004, 14:58 »

Hola Daniel_Pc.

Puedes probar con un código de este estilo :

Código: Text

 
    Dim itm1 As ListItem, int1 As Integer
    Dim sngY As Single, sngX() As Single
    ReDim sngX(1 To ListView1.ColumnHeaders.Count)
    sngX(1) = 10
    For int1 = 1 To ListView1.ColumnHeaders.Count - 1
        sngX(int1 + 1) = sngX(int1) + ListView1.ColumnHeaders(int1).Width
    Next int1
    For Each itm1 In ListView1.ListItems
        sngY = Printer.CurrentY
        Printer.CurrentX = 10
        Printer.Print itm1.Text
        Printer.CurrentY = sngY
        For int1 = 1 To ListView1.ColumnHeaders.Count - 1
            Printer.CurrentX = sngX(int1 + 1)
            Printer.CurrentY = sngY
            Printer.Print itm1.SubItems(int1)
        Next int1
    Next itm1
 
 

Ojo que el código está escrito al vuelo. No está probado ni depurado... es para que te hagas una idea.

Abur.

SoloCodigo

Autor Tema: Como Puede Imprimir Los Datos De Un Listview (Leído 2514 veces)

Daniel_PC

Como Puede Imprimir Los Datos De Un Listview

Brroz

Re: Como Puede Imprimir Los Datos De Un Listview