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:
/*
聽* 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.