1. Get the current vpxPrint version |
|
{ xprint.i } DEF VAR M AS MEMPTR NO-UNDO. DEF VAR xVersion AS CHAR NO-UNDO. SET-SIZE(M) = 128. RUN xPrintVersion( M ). xVersion = GET-STRING(M, 1). SET-SIZE( M ) = 0. MESSAGE xVersion VIEW-AS ALERT-BOX. |
2. Convert image formats |
Transform an image from a format to another. |
|
3. Print a shadowed text |
|
Simply rewrite the text two times with a shift. Two colors are used. "<UNITS=MM>" "<#1><R+10><C+60><FArial><P42><B><FRAME#1>" "<FGCOLOR=GRAY><USE#1>" myText "</USE><=#1><at=-1,-1><#1>" "<FGCOLOR=BLACK>" "<R+10><C+60><FRAME#1><USE#1>" myText. |
4. Wordart |
Examples of coding with colors, angles and shadows. |
|
5. Create a FAX file |
When using a fax server different of WinFax (WinFax interface is native), you may want to create a compatible TIF file that your fax server accepts. |
Note that you have to put the tif file in the Fax server Outbox directory and add a file giving recipients and other parameters. TIF files are multi-pages and 'Black and white'. { xprint.i} OUTPUT TO c:\temp\IMAGE.xpr PAGED PAGE-SIZE 500 /* PUT CONTROL "<PREVIEW>". */ /* if needed */ PUT CONTROL "<PRINT=NO>". /* to avoid the printing */ PUT "<EXPORT=c:\temp\image.tif,BW>" "<R10><C10><P18><B>Hello world !". PAGE. PUT "<R10><C10>This short procedure" SKIP(1) "<C10>shows how to create a TIF file (2 pages)." OUTPUT TO TERMINAL. RUN printFile('c:\temp\IMAGE.xpr'). |
6. Adjust font size to a given area. |
In a given area, set the font size to print the full text centered inside. |
|
Discover how to perform different effects with vpxPrint.
vpxPrint TIPS
Copyright 4GL © All rights reserved.
4GL 5, place Charles Béraudier 69003 - LYON (France)
4GL
5, place Charles Béraudier
69003 - LYON
(France)