SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Daniel_PC en Sábado 3 de Enero de 2004, 03:00

Título: Como Puede Imprimir Los Datos De Un Listview
Publicado por: Daniel_PC en Sábado 3 de Enero de 2004, 03:00
Como puede imprimir los datos de un Listview?
Gracias...
Título: Re: Como Puede Imprimir Los Datos De Un Listview
Publicado por: Brroz en Jueves 8 de Enero de 2004, 14:58
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.