Ed,
It appears that the page headers aren't processed when ---Turn File Off-- is in
effect. Apparently that's intentional so that stuff you're outputting to the
screen doesn't mess with your page counts.
Try this as a solution:
Move this
TURN.FILE.OFF
BEGIN.WRITING.TO.FILENAME.IN.RV:251
TURN.FILE.ON
from the beginning of the report (in red below) to after the first subreport
has completed (in green below). So you don't want a ---Turn File Off--- code
before running the first subreport. Let DP think it's creating a file the whole
time. But in the first run through, the file is being dumped to NUL. Since DP
thinks it making a file, it processes the page headers and things as normal.
Tim Rude
On 7/24/2019 3:25 PM, Ed Marfil, MAST UNITED wrote:
Tim, here is an extract from STE printout of the report.
I left in most of the printer control strings in case any of them is
interfering.
REPORT.BASED.ON.PANEL:23
NAME:~07/2019~
REPORT.MODE:WP
OUTPUT.FILENAME:~NUL~
CREATE.DISK.FILE
REPORT.INDEX: 3
TEXT.LINES=65 TOP.MARGIN=0 BOTTOM.MARGIN=0 LEFT.MARGIN=0
BACKWARD
REPORT.FORM:
FIRST.PAGE.HEADER
DO.LOOKUP
PROMPT.FOR.VALUE.OF.RV:250 USING.FORMAT:~U1~
PROMPT.MSG:~Print to Paper? [Y] if Yes or [ENTER] to PDF:~
SET.RV:251 FORMULA:
~if RV250="Y" then cat.c["c:\dpspool\";apply.format["G999";today -
date[1;1;year[today]] + 1];apply.format["G99999";now];".{1}"] else~
CR
~cat.c["c:\dpspool\";apply.format["G999999";~ FIELD=P23F1
~];apply.format["G99";~ FIELD=P23F2 ~];".{2}"] endif~
FORMULA.END;
TURN.FILE.OFF
BEGIN.WRITING.TO.FILENAME.IN.RV:251
TURN.FILE.ON
OTHER.PAGE.HEADER
TWO.LEVEL.REPORT.HEADER
REPORT.BODY
TURN.FILE.OFF
SUBREPORT.THRU.DOOR:5 TO.PANEL:24
FIRST.PAGE.HEADER
SET.RV:19 FORMULA:~1~
FORMULA.END;
PRINT.CNTRL.STRING: 206 0 13 206
PRINT.CNTRL.STRING: 192 0 0 5 8 192
PRINT.CNTRL.STRING: 250 112 58 92 109 117 111 109 97 92 109 117 108 111 103 105
110 118 46 106 112 103 59 53 46 50 53 59 48 46 52 59 50 46 53 59 48 46 55 53 250
PRINT.CNTRL.STRING: 244 70 76 117 99 105 100 97 32 83 97 110 115 32 85 110 105
99 111 100 101 244
PRINT.CNTRL.STRING: 244 80 49 48 244
PRINT.CNTRL.STRING: 244 87 50 57 244
PRINT.CNTRL.STRING: 244 83 87 244
TAB.TO.COL:9
OTHER.PAGE.HEADER
SET.RV:19 FORMULA:~RV19+1~
FORMULA.END;
PRINT.CNTRL.STRING: 206 0 13 206
PRINT.CNTRL.STRING: 192 0 0 5 8 192
PRINT.CNTRL.STRING: 250 112 58 92 109 117 111 109 97 92 109 117 108 111 103 105
110 118 46 106 112 103 59 53 46 50 53 59 48 46 52 59 50 46 53 59 48 46 55 53 250
PRINT.CNTRL.STRING: 244 70 76 117 99 105 100 97 32 83 97 110 115 32 85 110 105
99 111 100 101 244
PRINT.CNTRL.STRING: 244 80 49 48 244
PRINT.CNTRL.STRING: 244 87 50 57 244
PRINT.CNTRL.STRING: 244 83 87 244
TAB.TO.COL:9
TWO.LEVEL.REPORT.HEADER
REPORT.BODY
PRINT.CNTRL.STRING: 244 70 77 83 32 80 71 111 116 104 105 99 244
PRINT.CNTRL.STRING: 244 80 49 48 244
PRINT.CNTRL.STRING: 244 87 52 53 244
PRINT.CNTRL.STRING: 244 83 87 244 CR
TWO.LEVEL.FOOTER
PAGE.FOOTER
SKIP.TO.PAGE.BOTTOM
RV:4;~A16~ ~ ~ RV:6;~DZ9/99/99~
FINAL.FOOTER
SKIP.TO.PAGE.BOTTOM
RV:4;~A16~ ~ ~ RV:6;~DZ9/99/99~
END.SUBREPORT.FOR.PANEL:24
SET.PAGE.NUMBER.TO:1
TURN.FILE.OFF
BEGIN.WRITING.TO.FILENAME.IN.RV:251
TURN.FILE.ON
SUBREPORT.THRU.DOOR:5 TO.PANEL:24
FIRST.PAGE.HEADER
PRINT.CNTRL.STRING: 206 0 13 206
PRINT.CNTRL.STRING: 192 0 0 5 8 192
PRINT.CNTRL.STRING: 250 112 58 92 109 117 111 109 97 92 109 117 108 111 103 105
110 118 46 106 112 103 59 53 46 50 53 59 48 46 52 59 50 46 53 59 48 46 55 53 250
PRINT.CNTRL.STRING: 244 70 76 117 99 105 100 97 32 83 97 110 115 32 85 110 105
99 111 100 101 244
PRINT.CNTRL.STRING: 244 80 49 48 244
PRINT.CNTRL.STRING: 244 87 50 57 244
PRINT.CNTRL.STRING: 244 83 87 244
TAB.TO.COL:9
OTHER.PAGE.HEADER
PRINT.CNTRL.STRING: 206 0 13 206
PRINT.CNTRL.STRING: 192 0 0 5 8 192
PRINT.CNTRL.STRING: 250 112 58 92 109 117 111 109 97 92 109 117 108 111 103 105
110 118 46 106 112 103 59 53 46 50 53 59 48 46 52 59 50 46 53 59 48 46 55 53 250
PRINT.CNTRL.STRING: 244 70 76 117 99 105 100 97 32 83 97 110 115 32 85 110 105
99 111 100 101 244
PRINT.CNTRL.STRING: 244 80 49 48 244
PRINT.CNTRL.STRING: 244 87 50 57 244
PRINT.CNTRL.STRING: 244 83 87 244
TAB.TO.COL:9
TWO.LEVEL.REPORT.HEADER
REPORT.BODY
PRINT.CNTRL.STRING: 244 70 77 83 32 80 71 111 116 104 105 99 244
PRINT.CNTRL.STRING: 244 80 49 48 244
PRINT.CNTRL.STRING: 244 87 52 53 244
PRINT.CNTRL.STRING: 244 83 87 244 CR
TWO.LEVEL.FOOTER
PAGE.FOOTER
SKIP.TO.PAGE.BOTTOM
RV:4;~A16~ ~ ~ RV:6;~DZ9/99/99~
FINAL.FOOTER
SKIP.TO.PAGE.BOTTOM
RV:4;~A16~ ~ ~ RV:6;~DZ9/99/99~
END.SUBREPORT.FOR.PANEL:24
STORE.RV: 7 IN.FIELD:34
STORE.RV: 8 IN.FIELD:40
DO.LOOKUP
TWO.LEVEL.FOOTER
PAGE.FOOTER
FINAL.FOOTER
SKIP.TO.PAGE.BOTTOM
EJECT
REPORT.END;
_______________________________________________
Dataperf mailing list
[email protected]
http://lists.dataperfect.nl/cgi-bin/mailman/listinfo/dataperf
