gracias a los aportes e ideas de Mastintin se han incorporado correciones y mejoras en esta release. Me han quedado un par de detalles sin pulir, la falta incorporar RoundBox, y a falta de pruebas lo subo para quien lo necesita usar ya.
Los cambios más importantes son:
1) La incorporación de la opción PREVIEW: es un parámetro adicional, que junto a 2 datas permiten lanzar la visualizacion del PDF con un ShellExecute, personalizable a través de un codeBlock ::bPreview.
2) Comandos para las implementaciones de impresión: Si incluímos HaruPrint.ch, se puede definir el objeto de impresión con un DEFINE
- Code: Select all Expand view RUN
#include 'HaruPrint.ch'
IF lPorTPrinter
DEFINE PRINT oPrint BLAH BLAH // Usando los comandos de la TPrinter.ch
PRINT OBJECT oPrint // <- Nuevo
ELSE // Por Haru
PRINT oPrint TO HARU "MyPdf.pdf" PREVIEW USER PASS "esparami" OWNER PASS "SoloYo"
ENDIF
// Impresion normal, comun a las dos clases
PAGE
oPrint:Say(...)
ENDPAGE
ENDPRINT
Se logra esto con el reemplazo de las funciones que controlan los comandos de impresion PAGE/ENDPAGE/ENDPRINT en HaruPrintMgr.prg
Quiero hacer notar que se pueden hacer adaptaciones al gusto personal en la clase THaruPdf sin que esto afecte el funcionamiento del resto de la librería. Esta clase está ahí justamente para poder meter código propio, sin necesidad de modificar el código de la librería propiamente dicha, con lo que podemos con mucho menos esfuerzo incorporar nuevas versiones sin perder nuestras adaptaciones, cambios, ajustes y correcciones.
Todas estas novedades vienen del trabajo del master Mastintin, por lo que esta es su edición
. Ya está subida en BitBucket.
Por el momento, nada más. Espero que resulte útil.
.