PageScript 32 is now available for free

PageScript 32 is now available for free

Postby bpd2000 » 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/
Regards, Greetings

Try FWH. You will enjoy it's simplicity and power.!
User avatar
bpd2000
 
Posts: 123
Joined: Tue Aug 05, 2014 9:48 am
Location: India

Re: PageScript 32 is now available for free

Postby bpd2000 » 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
Image

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

Try FWH. You will enjoy it's simplicity and power.!
User avatar
bpd2000
 
Posts: 123
Joined: Tue Aug 05, 2014 9:48 am
Location: India

Re: PageScript 32 is now available for free

Postby bpd2000 » 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/
Regards, Greetings

Try FWH. You will enjoy it's simplicity and power.!
User avatar
bpd2000
 
Posts: 123
Joined: Tue Aug 05, 2014 9:48 am
Location: India

Re: PageScript 32 is now available for free

Postby MauroArevalo » 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.
Edgar Mauricio Arévalo Mogollón.
Bogotá DC. Colombia
FWH 14.11, xHarbour 1.2.1, Pelles C, Verce 5.3, Borland 582
http://www.hymplus.com
Tratando de retomar la programación....
User avatar
MauroArevalo
 
Posts: 83
Joined: Thu Jan 19, 2006 11:47 pm
Location: Bogota DC. Colombia


Return to Off Topic / Otros temas

Who is online

Users browsing this forum: No registered users and 2 guests