| Stephan St-Denis 2007-03-14, 6:55 pm |
| Dear Clipper programmers,
AbeeLabs Systems inc. announces today, the availability of PageScript 32
version 1.1; the ultimate Windows Printing Library for 32 bits programming
languages, with native support for (x)Harbour, Xbase++ and Delphi, plus
support for other 32 bits programming languages through PageScript 32's
APIs.
If you're porting your Clipper programs to Xbase++, [x]Harbour or Delphi,
then don't miss PageScript 32 with native support for these programming
languages.
This new version introduces two new functions to create PDF files instead of
print jobs, while keeping your existing code intact.
Here's an example :
#Include "PScript.ch"
/*----------------------------------
Main function
----------------------------------*/
Function Main()
Local nReport
Local nDevice
if PSInit() <> 0
Alert("Impossible to initialize the printing subsystem.")
Return 1
endif
while (nReport := SelectAReport()) > 0
nDevice := SelectADevice()
if nDevice >= DEV_PRINTER .and. nDevice <= DEV_PDFFILE
PrintReport(nReport, nDevice)
endif
enddo
Return 0
/*----------------------------------
Print function
----------------------------------*/
Function PrintReport(nReport, nDevice)
Local cFileName
PSSetDevice(nDevice) // New function
if nDevice == DEV_PDFFILE
cFileName := AskFileName()
PSSetFileName(cFileName) // New function
endif
BEGINDOC USING 0 TITLE "A report"
do case
case nReport == 1
PrintReport1()
case nReport == 2
PrintReport2()
case nReport == 3
PrintReport3()
case nReport == 4
PrintReport4()
endcase
ENDDOC
Return NIL
As you may see, all you have to do is to tell PageScript that you want to
create a PDF file by setting PS32's virtual device to
PSSetDevice(DEV_PDFFILE) and by providing a valid file path and name using
PSSetFileName(). That's all you have to do to create PDF files that your
customer can open with Adobe Reader.
Benefit from our introductory price offer and purchase PageScript 32 now.
Please visit our online web store at : https://www.lpcshop.com/L152893
For more informations about PageScript, visit our web site :
http://www.abeelabs.com/en
AbeeLabs Systems inc. is the creator of PageScript for Clipper, the ultimate
Clipper to Windows printing library and now, PageScript 32, for 32 bits
Windows programming languages. Established in 2000, AbeeLabs Systems inc. is
celebrating its 7th anniversary. Seven years of excellence.
|