Kbase P46764: Double-spacing when editor widget is printed across multiple pages with PAGE-SIZE 0.
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
10/8/2003 |
|
Status: Unverified
SYMPTOM(s):
Double-spacing when editor widget is printed across multiple pages with PAGE-SIZE 0.
Running code similar to:
DEF VAR xtext AS CHAR.
DEF VAR x AS INT.
/* create a really long excerpt of text: 100 lines */
DO x = 1 TO 100:
xtext = xtext + "Here is a really long excerpt of text" + chr(10).
END.
/* Print */
OUTPUT TO PRINTER PAGE-SIZE 0.
DISPLAY xtext VIEW-AS EDITOR SIZE 65 BY 1
WITH DOWN NO-LABELS.
OUTPUT CLOSE.
CAUSE:
Needed to direct the output to a file first.
FIX:
The following modified code resolved this issue:
DEF VAR xtext AS CHAR.
DEF VAR x AS INT.
/* create a really long excerpt of text: 100 lines */
DO x = 1 TO 100:
xtext = xtext + "Here is a really long excerpt of text" + chr(10).
END.
/* Print */
OUTPUT TO myfile.txt PAGE-SIZE 0.
DISPLAY xtext VIEW-AS EDITOR SIZE 65 BY 1 WITH DOWN NO-LABELS.
OUTPUT CLOSE.
DEFINE VARIABLE cPrinterPort AS CHARACTER NO-UNDO.
cPrinterPort = SESSION:PRINTER-PORT.
OS-COMMAND SILENT COPY "myfile.txt" value(cPrinterPort).