Impresiones en PDF, xBullZipPdfPrinter

[noe aburto]

Saludos, uso el controlador BullZipPDFPrinter para realizar impresiones pdf, usan el printer normal de fw, este controlador lo tengo instalado como predetermindo, por tengo usando PRINTER . de fw. LA IMPRESION me la manda al BullZipPDF, pero de repente esta impresion se pierde y tengo problemas para generar el pdf de la factura electronica.

Alguna sugerencia para que la impresion la mande directa a un pdf sin usar mas recursos?.


Gracias.

[karinha]

https://www.sumatrapdfreader.org/free-pdf-reader.html

[surGom]

Hace años uso el cutepdf writer para las facturas electónicas sin problemas.
Te lo recomiendo

Luis

[Carlos Mora]

Noe,

Puedes probar la clase PdfPrinter, basada en HaruPdf. Es lo más seguro y rápido, y no depende de cosas externas como una impresora virtual.

https://bitbucket.org/carlos_mora/pdfprinter

100% del código disponible.

[miarcod]

Estoy intentando probar la clase y genera el pdf con texto y fuentes pero el metodo cmRect()
provoca que no se genera el pdf ni de error ni nada.

Alguna idea

[Carlos Mora]

Hola,
Si es posible, por favor pon la versión de compilador que usas.
Si estás usando xHarbour del 2009, es posible que el problema sea el mismo que resolvimos con Andrés Romero de ARG hace una semana. Resulta que la contrib haru de esa versión de xHarbour tiene un bug en la función rectángulo. Específicamente, no cierra el path con stroke cuando dibuja los rectángulos con line_to, line_to, etc. Ese bug no se produce en Harbour.

Solución:

Code: Select all

/*
 * Proyecto: QuickSQL
 * Fichero: THaruPDF.prg
 * Descripción: Dummy class for protected variations.
 * Autor: Carlos Mora
 * Fecha: 26/03/2013
 */

#include 'hbclass.ch'
#include 'harupdf.ch'

#define __NODEBUG__
#include 'debug.ch'

//------------------------------------------------------------------------------
CLASS THaruPDF FROM THaruPDFBase
   // Clase intermedia para proveer de variaciones protegidas
   METHOD Rect()
ENDCLASS

METHOD Rect( nTop, nLeft, nBottom, nRight, oPen, nColor )

   HPDF_Page_GSave(::hPage)

   ::SetPen( oPen, nColor )
   HPDF_Page_Rectangle( ::hPage, nLeft, ::nHeight - nBottom, nRight - nLeft,  nBottom - nTop )
   HPDF_Page_Stroke ( ::hPage )

   HPDF_Page_GRestore(::hPage)

RETURN Self
 

Incluye esta clase en tu proyecto en lugar de la clase vacía. Espero que esto resuelva el error.

Avísame como te fue.

[miarcod]

gracias,

voy a probar.
Estoy trabajando con habour 3.2.0 r1703231115 y fivewin ver. 13.06

Espero actualizar la version de fivewin en breve.

[miarcod]

Ok,
agregando lo que me dices funciona correctamente,

La solucion que habia encontrado era pintar el cuadro con cuatro lineas.

Un saludo