Hi to all
We have tried to do this in foxpro but no luck.
We need to print the 'ODD' pages for a report and then prompt the user to reverse the paper stack in order to print the 'EVEN' pages.
Here is the code we came up with:
*******start of mikes code*******
*-- Find total no. of pages
REPORT FORMAT "Report.frx" TO FILE Temp.Txt NOCONSOLE
nTotalPages = _PAGENO
FOR nPartno = 1 TO 2
*-- Print odd or even pages
IF nPartno = 1
nStartPage = 1
ELSE
nStartPage = 2
ENDIF
FOR nOddEven = nStartPage TO nTotalPages SKIP 2
REPORT FORMAT "Report.frx" TO PRINTER RANGE nOddEven,nOddEven
ENDFOR nOddEven
MessageBox("Turn papers now",64,"Hello"
ENDFOR nPartno
*******end of code*****
Please tell us whats wrong with this code.
Thanking you in advance.
Regards
Mike
We have tried to do this in foxpro but no luck.
We need to print the 'ODD' pages for a report and then prompt the user to reverse the paper stack in order to print the 'EVEN' pages.
Here is the code we came up with:
*******start of mikes code*******
*-- Find total no. of pages
REPORT FORMAT "Report.frx" TO FILE Temp.Txt NOCONSOLE
nTotalPages = _PAGENO
FOR nPartno = 1 TO 2
*-- Print odd or even pages
IF nPartno = 1
nStartPage = 1
ELSE
nStartPage = 2
ENDIF
FOR nOddEven = nStartPage TO nTotalPages SKIP 2
REPORT FORMAT "Report.frx" TO PRINTER RANGE nOddEven,nOddEven
ENDFOR nOddEven
MessageBox("Turn papers now",64,"Hello"
ENDFOR nPartno
*******end of code*****
Please tell us whats wrong with this code.
Thanking you in advance.
Regards
Mike