Reporte .... Report

Hola.
Quiero imprimir un reporte con el solo contenido de 10 label en distintas posiciones pero sin utilizar una base de datos.

Utilizo el siguiente codigo en un button, pero la impresora imprime la hoja en blanco.

Dim ps As New PrinterSetup

Dim rpt As New report1
If ps.PageSetupDialog Then
Dim g As Graphics
g = OpenPrinterDialog(ps)
If g <> Nil Then

  If rpt.Document <> Nil Then
    rpt.Document.Print(g)
  End If
 
End If

End If

Alguna sugerencia?

PD. Nunca utilize report, me he manejado siempre con dbreport, pero queria utilizar el objeto nativo de xojo.
Gracias

Hola Javier,

Por favor, disculpe mi espaol.

Lo que probablemente tendr que hacer es crear un informe con cuadros de texto para cada una de las posiciones 10 de la etiqueta. Luego, en una matriz (o diccionario) tendr que rellenar los valores para el 1 de etiqueta que desea que aparezca. Todos los otros 9 posiciones deben tener valores en blanco.

Espero que le ayudar a comenzar. Si usted est buscando otra opcin de impresin de Xojo, echa un vistazo a BKeeney Shorts.

Buena suerte.

Hola Javier,

Echa un vistazo a este vdeo sobre el tema. Si bien en tu caso no quieres utilizar una base de datos, ten en cuenta que la fuente de datos ha de implementar la interface DataSet.

Javier Rodrguez
Evangelista Xojo en Espaol, Desarrollador, Consultor y Formador Xojo
Autor del libro “Programacin Multiplataforma Xojo
Autor del plug-in GuancheMOS para Xojo
Snippery para OS X: editor y gestor de fragmentos y ms!

Gracias a todos