Kbase 13610: Example: How to use MSWindows Print Manager in 7.3A
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
10/05/1998 |
|
Example: How to use MSWindows Print Manager in 7.3A
The following code (for Progress MSWindows Version 7.3A or higher)
will envoke the Font Manager, and print some text in the selected
font.
DEF VAR txt AS CHAR NO-UNDO FORMAT "x(100)".
DEF VAR v_res AS LOGICAL NO-UNDO.
DEF VAR fontnum AS INTEGER.
DEF VAR runprog AS CHAR FORMAT "X(20)" INIT "ADECOMM\_OSPRINT.P".
DEF STREAM p_stream.
txt = FILL("1234567890",10).
OUTPUT STREAM p_stream TO "TEST.TXT".
PUT STREAM p_stream UNFORMATTED txt.
OUTPUT STREAM p_stream CLOSE.
SYSTEM-DIALOG FONT fontnum.
run VALUE(runprog) (INPUT current-window,
INPUT "test.txt", INPUT fontnum, INPUT 1,
INPUT 60, INPUT 0, OUTPUT v_res ).
Progress Software Technical Support Note # 13610