FiveTech Software tech support forums

Posted: **Fri Aug 29, 2014 5:59 am**

PageScript 32 is now available for free (w/o Source Code Only .DLL)

Interested visit http://www.abeelabs.com/

Posted: **Sun Sep 17, 2017 11:23 am**

Now again PageScript 32 is online
Nice print Preview and real PDF can be created inbuilt
visit http://pagescript32.com/

Demo adopted for FWH

Posted: **Mon Dec 25, 2017 1:41 pm**

Just release new Full version of PageScript32 beta version 3.0.4.105 for (x)Harbour
visit:
http://pagescript32.com/

Posted: **Thu Jan 04, 2018 8:39 pm**

Hola foro:

He probado PageScript 32 en un programa que tengo en Xharbour puro y está magnífico.

Genera la impresión a cualquier impresora que este instalada en el PC, Previsualiza y genera archivo en PDF.

http://www.hymplus.com/imagenes/foro/Image1.jpg

http://www.hymplus.com/imagenes/foro/Image2.jpg

http://www.hymplus.com/imagenes/foro/Image3.jpg

http://www.hymplus.com/imagenes/foro/Image4.jpg

El código es sencillo y fácil de implementar para un novato como yo.

La cabecera del listado:

Code: Select all Expand view: Cabezara del Reporte ------------------------------------------------------------*/ FUNC HEADERC(nPage) PSSetFont(APS_SYSTEM, APS_BOLD, 12, APS_BLACK, APS_NONE) PSTextOut(1 , 2, FECHA) PSTextOut(1 ,71, "Pág: " + Str(nPage, 3, 0)) PSTextOut(1 ,39, NOMEMP,, APS_CENTER) PSTextOut(2 ,39, "NIT "+NITC,, APS_CENTER) PSTextOut(3 ,39, DETA,, APS_CENTER) PSSetFont(APS_SYSTEM, APS_PLAIN, 8, APS_BLACK, APS_NONE) PSLine(4.25, 1, 4.25, 81, .5, APS_BLACK) PSSetFont(APS_SYSTEM, APS_BOLD, 8, APS_BLACK, APS_NONE) PSTextOut(5 , 2, "CODIGO") PSTextOut(5 , 10, "N O M B R E D E L A C U E N T A") PSTextOut(5 , 47, "P A R C I A L E S") PSTextOut(5 , 70, "S A L D O S") PSSetFont(APS_SYSTEM, APS_PLAIN, 8, APS_BLACK, APS_NONE) PSLine(6.50, 1, 6.50, 81, 1, APS_BLACK) RETURN 7

El listado del Balance:

Code: Select all Expand view: FUNC REPBALC Local nRow := 6 Local nPage := 1 PSSetPageSize(DMPAPER_LETTER) PSBeginDoc(, "Balance General", APS_PORTRAIT) PSSetUnit(APS_TEXT) nRow := HeaderC(nPage) DO WHILE .NOT. EOF() PSSetFont(APS_SYSTEM, APS_BOLD, 8, APS_BLACK, APS_NONE) IF HYMTIT=1 PSTextOut(nRow , 1, (SUBS(HMCODIGO,1,1)),, APS_LEFT) PSTextOut(nRow , 7, HMCUENTA,, APS_LEFT) PSTextOut(nRow ,78, HMSALDOS, &DIGS, APS_DECIMAL) HYMTIT=0 ENDIF IF CLA#SUBS(HMCODIGO,1,1) PSTextOut(nRow , 1, (SUBS(HMCODIGO,1,1)),, APS_LEFT) PSTextOut(nRow , 7, HMCUENTA,, APS_LEFT) PSTextOut(nRow ,78, HMSALDOS, &DIGS, APS_DECIMAL) CLA:=SUBS(HMCODIGO,1,1) ELSEIF GRU#SUBS(HMCODIGO,1,2) PSTextOut(nRow , 1, (SUBS(HMCODIGO,1,2)),, APS_LEFT) PSTextOut(nRow , 7, HMCUENTA,, APS_LEFT) PSTextOut(nRow ,65, HMSALDOS, &DIGS, APS_DECIMAL) GRU:=SUBS(HMCODIGO,1,2) ELSEIF CTA#SUBS(HMCODIGO,1,4) PSSetFont(APS_SYSTEM, APS_PLAIN, 8, APS_BLACK, APS_NONE) PSTextOut(nRow , 1, (SUBS(HMCODIGO,1,4)),, APS_LEFT) PSTextOut(nRow , 7, HMCUENTA,, APS_LEFT) PSTextOut(nRow ,52, HMSALDOS, &DIGS, APS_DECIMAL) PSSetFont(APS_SYSTEM, APS_BOLD, 8, APS_BLACK, APS_NONE) CTA:=SUBS(HMCODIGO,1,4) IF SUBS(HMCODIGO,1,1)="1" ACTIVO:=ACTIVO+HMSALDOS ENDIF IF SUBS(HMCODIGO,1,1)="2" PASIVO:=PASIVO+HMSALDOS ENDIF IF SUBS(HMCODIGO,1,1)="3" PATRIMO:=PATRIMO+HMSALDOS ENDIF ENDIF nRow += 1 IF nRow > 58 PSNewPage() nPage++ nRow := HeaderC(nPage,NOMEMP) ENDIF DBSKIP() ENDDO

Gracias al amigo de la India que compartió la información.

Posted: **Sat Jan 30, 2021 3:06 pm**

Very good, aún és free?

Gracias, saludos.

PageScript 32 is now available for free