Comunidad Gambas-es

Se ofrece la definición de una clase que permite imprimir el resultado de una consulta.

El código está comentado y permite ver cómo realizar impresiones con Gambas3 (Que no es nada fácil ). Se puede adaptar fácilmente a otras necesidades de impresión.

También muestra un bug de la impresión con este sistema .No funciona cuando se selecciona impresión en landscape.
Si alguien entiende que no es un bug sino que yo estoy haciéndolo mal agradeceré una corrección .

Aquí está. Espero que sea útil a mucha gente.

Muchas gracias. Los novatos con el 3 agradecemos el aporte.
Lo miraré despacito y te comento, si hay algo que comentar, claro.

Un saludo.

Sebas:

Buen aporte. Es conveniente que tengamos siempre varias opciones a elegir para poder hacer informes.

Saludos

Anoto una errata y una observación de última hora.

Primero en la definición de la clase:



fFontSize debe ser As Float

Por otro lado he comprobado en el siguiente código;


Que cuando entramos en el diálogo printer.configure() si cancelamos la impresión el resto del código no se ejecuta, tal como está previsto. Pero si se selecciona vista previa de la impresión tampoco ejecuta el resto del código en esta función sino que internamente llama a Printer.Print y, por lo tanto, el pPrinter.FullPage = True que viene a continuación o cualquier otro código debe colocarse con anterioridad al cuadro de diálogo o la vista previa no responderá al código escrito.

Buen trabajo, se agradece mucho.

En poco tiempo tendré que ponerme a actualizar una aplicación grande de gambas2 a gambas3, así que voy a estudiar tu ejemplo a ver si por fin asimilo el tema de impresión y paginado que por alguna razón siempre me ha parecido bastante complicado.

Saludos y gracias nuevamente.


P.D. Sebas, he visto que has creado un artículo a partir de este post, pero por alguna razón el código sale mal, porque convierte algunos caracteres en entidades html. Creo que es un fallo en el módulo de base de conocimientos del foro, tendré que revisarlo cuando tenga un rato.
Sin pretender abusar de tu bondad, te aconsejo, sólo para mayor claridad, que trates de elaborar el artículo paso a paso con fragmentos de código limpio (sin comentarios largos) y que los comentarios formen parte del artículo explicando esa parte concreta del código. Estoy seguro de que toda la comunidad te estará muy agradecida, yo el primero

jguardon escribió: [Ver mensaje]

Buen trabajo, se agradece mucho.

En poco tiempo tendré que ponerme a actualizar una aplicación grande de gambas2 a gambas3, así que voy a estudiar tu ejemplo a ver si por fin asimilo el tema de impresión y paginado que por alguna razón siempre me ha parecido bastante complicado.

Saludos y gracias nuevamente.


P.D. Sebas, he visto que has creado un artículo a partir de este post, pero por alguna razón el código sale mal, porque convierte algunos caracteres en entidades html. Creo que es un fallo en el módulo de base de conocimientos del foro, tendré que revisarlo cuando tenga un rato.
Sin pretender abusar de tu bondad, te aconsejo, sólo para mayor claridad, que trates de elaborar el artículo paso a paso con fragmentos de código limpio (sin comentarios largos) y que los comentarios formen parte del artículo explicando esa parte concreta del código. Estoy seguro de que toda la comunidad te estará muy agradecida, yo el primero

Bueno no es un abuso. Para mí es un placer poder ayudar a la comunidad dentro de mis posibilidades así que lo intentaré.

Impresión en gambas 3. Clase para imprimir el resultado de una consulta SQL

La impresión en gambas3 es la más extraña con la que me he topado desde que programo. Está conducida por eventos.
Intentaré explicarla a partir del código.



Inicialmente establecemos todas las variables que vamos a necesitar para realizar la impresión.
Estructura FieldPrint.
contendrá los datos necesarios para imprimir el contenido de un campo (Nombre, Posición X, Ancho de impresión y Alineación)
Estructura Page
Contiene los datos necesarios para imprimir una página (Un array con los FieldPrint que se van a utilizar en dicha página, el primer registro y el último que corresponden a dicha página).
Por último una array -Pages- guardará todas las definiciones de páginas.

Dada la forma de imprimir de gambas necesitamos conocer el número total de páginas antes de iniciar la impresión (lo veremos más adelante). Este conjunto de estructuras y variables nos ayudan a conocer el número de páginas a utilizar y ya de paso definir su contenido. Esto no será necesario en impresiones más simples.

Creación de la clase


Aquí se da valor a las variables más importantes. Las variables que no están en los parámetros tomarán valor más adelante aunque cada cual puede parametrizar aquellas variables que le parezcan más oportunas para sus listados.


Esta es la única función pública de la clase. Básicamente crea el objeto printer y le manda imprimir. Pero hay que fijarse en varias cosas.

pPrinter.FullPage=TRUE indica que tomaremos las medidas completas de la página para imprimir. De otra forma no conoceremos los márgenes de impresión ya que el objeto printer no tiene propiedades para fijarlos.

pPrinter.Print inicia el proceso de impresión por eventos y no retorna hasta completar la impresión. Si se quiere capturar el resultado devuelve FALSE cuando la impresión se llevó a término sin errores o TRUE si falló o fue interrumpida.
El primer evento que se genera es Begin.



El código de este evento lo aprovechamos para fijar algunas características de la impresión como los márgenes y crear un objeto fuente que nos va a ayudar a calcular los tamaños de impresión. Fijamos también las escalas a que trabajará Paint para ajustarse las medidas de la página que gambas cuenta en mm.

Lo más importante a tener en cuenta es que el bucle local de eventos de impresión exige que se defina el número de páginas que se van a imprimir asignando valor a pPrinter.Count; este valor es fácilmente calculable para trabajos de impresión simples pero en muchos casos solo lo sabremos realizando la impresión o simulándola.
Si no se indica el número de páginas el bucle local dispara el evento Paginate.



El evento paginate debe finalmente dar valor a pPrinter.Count o seguirá generándose este evento en un bucle sin fin. Por lo tanto este valor debe asignarse aunque no es necesario que se haga en una sola ejecución del evento.

Respecto a nuestro código calcula con ayuda de las estructuras FieldPrint y Page los campos que se van a listar en cada página y el número de registros que caben dejando sitio para el título y el número de página.

En el evento Begin habíamos creado un objeto fuente que nos ayudará a calcular el espacio ocupado por los textos mediante los métodos Font.TextWidth y Font.TextHeight.
El objeto Paint no está disponible aún y no podemos utilizar Paint.Font.

Una vez definido el valor de pPrinter.Count se dispara el evento Draw ¡¡¡POR FIN VAMOS A IMPRIMIR!!!



El evento Draw se dispara una vez por cada página que tenemos que imprimir. La variable pPrinter.Page nos indica qué página es está imprimiendo en cada entrada y por lo tanto utilizamos la definición de página correspondiente teniendo en cuenta que pPrinter.Page pagina desde la página 1 y el array Pages[] cuenta desde 0.

Aquí es donde se inicializa el objeto Paint para cada página y en este momento ya se pueden utilizar los métodos de Paint para dibujar en la página. En este caso utilizamos el método Paint.DrawText para escribir texto y los métodos Paint.MoveTo y Paint.LineTo para situar el pincel y dibujar líneas respectivamente. Las líneas y otras operaciones de dibujo no se dibujan hasta que se llama al método Paint.Stroke.

Finalmente se produce el evento End del objeto Printer pero en este caso yo no he necesitado utilizarle. este evento se produce cuando la impresión ya ha finalizado por lo tanto no se podrán realizar operaciones de dibujo ni texto en el mismo.


Espero haber dejado claro el funcionamiento de la impresión y no haber sido demasiado extenso o farragoso en las explicaciones. Aquí queda de todas formas una herramienta para imprimir listados por un lado y un tutorial para comprender el sistema de impresión de Gambas3 por otro.

Sebas