• Lunes 23 de Diciembre de 2024, 03:23
« anterior próximo »
Páginas: [1]

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

Daniel_PC

  • Miembro activo
  • **
  • Mensajes: 59
    • Ver Perfil
Como Puede Imprimir Los Datos De Un Listview
« en: Sábado 3 de Enero de 2004, 03:00 »
0
Como puede imprimir los datos de un Listview?
Gracias...

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Como Puede Imprimir Los Datos De Un Listview
« Respuesta #1 en: Jueves 8 de Enero de 2004, 14:58 »
0
Hola Daniel_Pc.

Puedes probar con un código de este estilo :

Código: Text
  1.  
  2.     Dim itm1 As ListItem, int1 As Integer
  3.     Dim sngY As Single, sngX() As Single
  4.     ReDim sngX(1 To ListView1.ColumnHeaders.Count)
  5.     sngX(1) = 10
  6.     For int1 = 1 To ListView1.ColumnHeaders.Count - 1
  7.         sngX(int1 + 1) = sngX(int1) + ListView1.ColumnHeaders(int1).Width
  8.     Next int1
  9.     For Each itm1 In ListView1.ListItems
  10.         sngY = Printer.CurrentY
  11.         Printer.CurrentX = 10
  12.         Printer.Print itm1.Text
  13.         Printer.CurrentY = sngY
  14.         For int1 = 1 To ListView1.ColumnHeaders.Count - 1
  15.             Printer.CurrentX = sngX(int1 + 1)
  16.             Printer.CurrentY = sngY
  17.             Printer.Print itm1.SubItems(int1)
  18.         Next int1
  19.     Next itm1
  20.  
  21.  

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

Abur.
Páginas: [1]
« anterior próximo »