PageScript 32 is now available for free

[bpd2000]

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

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

[bpd2000]

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

Demo adopted for FWH


Download source and demo
https://files.fm/f/3pnaa95h

[bpd2000]

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

[MauroArevalo]

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

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

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.

[karinha]

Very good, aún és free?

Gracias, saludos.