Autor Tema: ucListPlus  (Leído 3166 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Henry63

  • Bytes
  • *
  • Mensajes: 10
  • Reputación: +0/-0
    • Ver Perfil
ucListPlus
« en: Diciembre 15, 2021, 07:21:36 pm »
Buenas noches, disculpe mi español.
Me gustaría saber cómo imprimir una lista con el control ucListPlus
gracias.

LeandroA

  • Administrador
  • Petabyte
  • *****
  • Mensajes: 1128
  • Reputación: +151/-8
    • Ver Perfil
Re:ucListPlus
« Respuesta #1 en: Diciembre 17, 2021, 08:45:54 am »
Hola Henry, no se bien a que se refiere con lista, el control labelplus tiene una propiedad llamada Image, de esta forma usted puede imprimir el control como si fuera una imagen

Código: [Seleccionar]
Private Sub Command1_Click()
    Dim i As Long
    For i = 0 To 10
        LabelPlus1.Caption = "Item " & i
        DoEvents
        Printer.PaintPicture LabelPlus1.Image, 0, LabelPlus1.Height * i
    Next
    Printer.EndDoc
End Sub

de todas formas la propiedad imagen ahora que la veo bien no esta bien programada, ya que si el label no esta visible esta no funciona, no será muy difícil solucionarlo, en estos días subiré una actualizacion, ya que también estoy viendo la misma propiedad para los chart controls, con el fin que estos puedan imprimirse.

Henry63

  • Bytes
  • *
  • Mensajes: 10
  • Reputación: +0/-0
    • Ver Perfil
Re:ucListPlus
« Respuesta #2 en: Diciembre 17, 2021, 07:37:38 pm »
Gracias por tu ayuda

LeandroA

  • Administrador
  • Petabyte
  • *****
  • Mensajes: 1128
  • Reputación: +151/-8
    • Ver Perfil
Re:ucListPlus
« Respuesta #3 en: Diciembre 21, 2021, 12:32:25 am »
con esta actualizacion ya tendrá mejores resultados, el uso sigue siendo igual al código del post anterior.

http://leandroascierto.com/blog/836-2/