VFP 8.0, Nopageeject not working?

I can't seem to get the NOPAGEEJECT option to work
Here is my code.
Each report still ejects the paper.
I'm trying to chain multiple reports together.
My printer (HP Deskjet 970cse) prints the last report first. Could this be
the problem?

DO FORM posreceiptqty TO lnreceipts
SELECT MyInvoiceDetail
DO case
CASE lnreceipts >= 0
FOR x = 1 TO lnreceipts
report form posreceipt to print NOPAGEEJECT NOCONSOLE
IF RECCOUNT('mytender')>0
SELECT MyTender
REPORT FORM postender TO PRINTER NOPAGEEJECT NOCONSOLE
SELECT MyInvoiceDetail
ENDIF
REPORT FORM posreceipt_footer TO PRINTER noconsole
ENDFOR
CASE lnreceipts =-1
REPORT FORM posreceipt preview
ENDCASE
IF RECCOUNT('MyCharge')>0
REPORT FORM posreceipt_storecopy TO PRINTER NOCONSOLE
ENDIF

Thanks in advance,
John.

Craig
Wed Jan 07 11:57:41 CST 2004

It's an outdated feature that is still there for backward compatability. VFP
8 has methods for chaining reports.

--
Craig Berntson
MCSD, Visual FoxPro MVP
Author, CrysDev: A Developer's Guide to Integrating Crystal Reports
www.craigberntson.com
email iamcraig@craigberntson.com (remove iam)
Salt Lake City Fox User Group
www.slcfox.org


"John" <oglethorpesupply@earthlink.net> wrote in message
news:qnpKb.27792$IM3.13054@newsread3.news.atl.earthlink.net...
> I can't seem to get the NOPAGEEJECT option to work
> Here is my code.
> Each report still ejects the paper.
> I'm trying to chain multiple reports together.
> My printer (HP Deskjet 970cse) prints the last report first. Could this
be
> the problem?
>
> DO FORM posreceiptqty TO lnreceipts
> SELECT MyInvoiceDetail
> DO case
> CASE lnreceipts >= 0
> FOR x = 1 TO lnreceipts
> report form posreceipt to print NOPAGEEJECT NOCONSOLE
> IF RECCOUNT('mytender')>0
> SELECT MyTender
> REPORT FORM postender TO PRINTER NOPAGEEJECT NOCONSOLE
> SELECT MyInvoiceDetail
> ENDIF
> REPORT FORM posreceipt_footer TO PRINTER noconsole
> ENDFOR
> CASE lnreceipts =-1
> REPORT FORM posreceipt preview
> ENDCASE
> IF RECCOUNT('MyCharge')>0
> REPORT FORM posreceipt_storecopy TO PRINTER NOCONSOLE
> ENDIF
>
> Thanks in advance,
> John.
>
>
>

John
Wed Jan 07 14:17:48 CST 2004

Thanks, but I think you must have my question confused with "NOEJECT" which
is different than NOPAGEEJECT.
What methods are you referring to?
John.



"Craig Berntson" <iamcraig@craigberntson.com> wrote in message
news:uaA55dU1DHA.3416@tk2msftngp13.phx.gbl...
> It's an outdated feature that is still there for backward compatability.
VFP
> 8 has methods for chaining reports.
>
> --
> Craig Berntson
> MCSD, Visual FoxPro MVP
> Author, CrysDev: A Developer's Guide to Integrating Crystal Reports
> www.craigberntson.com
> email iamcraig@craigberntson.com (remove iam)
> Salt Lake City Fox User Group
> www.slcfox.org
>
>
> "John" <oglethorpesupply@earthlink.net> wrote in message
> news:qnpKb.27792$IM3.13054@newsread3.news.atl.earthlink.net...
> > I can't seem to get the NOPAGEEJECT option to work
> > Here is my code.
> > Each report still ejects the paper.
> > I'm trying to chain multiple reports together.
> > My printer (HP Deskjet 970cse) prints the last report first. Could this
> be
> > the problem?
> >
> > DO FORM posreceiptqty TO lnreceipts
> > SELECT MyInvoiceDetail
> > DO case
> > CASE lnreceipts >= 0
> > FOR x = 1 TO lnreceipts
> > report form posreceipt to print NOPAGEEJECT NOCONSOLE
> > IF RECCOUNT('mytender')>0
> > SELECT MyTender
> > REPORT FORM postender TO PRINTER NOPAGEEJECT NOCONSOLE
> > SELECT MyInvoiceDetail
> > ENDIF
> > REPORT FORM posreceipt_footer TO PRINTER noconsole
> > ENDFOR
> > CASE lnreceipts =-1
> > REPORT FORM posreceipt preview
> > ENDCASE
> > IF RECCOUNT('MyCharge')>0
> > REPORT FORM posreceipt_storecopy TO PRINTER NOCONSOLE
> > ENDIF
> >
> > Thanks in advance,
> > John.
> >
> >
> >
>
>

Marc
Tue Jan 13 09:08:21 CST 2004

John,

Directly from the Help File...

NORESET
Specifies that the _PAGENO and _PAGETOTAL system variables are not reset.
The page count for the current report begins at the current values of these
two variables.
If you use the NORESET and RANGE keywords together, you must calculate
beforehand which pages to print.

NOPAGEEJECT
Specifies that Visual FoxPro does not force a sheet eject at the end of a
report and leaves the print job open. The next report printed is added to
the open print job.
You can use NOPAGEEJECT to set up duplex printing, that is, printing on the
reverse side of a previous report. You can also chain multiple reports and
have page numbers continue from one report to the next, which is useful for
tasks such as faxing reports.

Note You must make sure that the last report run does not have a
NOPAGEEJECT clause so the print job can be closed. NOPAGEEJECT is valid only
in a program (.prg) and is disregarded when issued in the Command window.
Changing between page orientations, such as landscape to portrait, between
reports is not supported.

The REPORT command still allows a NOEJECT keyword, which Visual FoxPro no
longer supports but was used in older DOS versions of FoxPro and FoxBASE+.

So it appears as though you should use the NORESET and NOPAGEEJECT commands
in concert to chain reports....

HTH,

Marc

"John" <oglethorpesupply@earthlink.net> wrote in message
news:qnpKb.27792$IM3.13054@newsread3.news.atl.earthlink.net...
> I can't seem to get the NOPAGEEJECT option to work
> Here is my code.
> Each report still ejects the paper.
> I'm trying to chain multiple reports together.
> My printer (HP Deskjet 970cse) prints the last report first. Could this
be
> the problem?
>
> DO FORM posreceiptqty TO lnreceipts
> SELECT MyInvoiceDetail
> DO case
> CASE lnreceipts >= 0
> FOR x = 1 TO lnreceipts
> report form posreceipt to print NOPAGEEJECT NOCONSOLE
> IF RECCOUNT('mytender')>0
> SELECT MyTender
> REPORT FORM postender TO PRINTER NOPAGEEJECT NOCONSOLE
> SELECT MyInvoiceDetail
> ENDIF
> REPORT FORM posreceipt_footer TO PRINTER noconsole
> ENDFOR
> CASE lnreceipts =-1
> REPORT FORM posreceipt preview
> ENDCASE
> IF RECCOUNT('MyCharge')>0
> REPORT FORM posreceipt_storecopy TO PRINTER NOCONSOLE
> ENDIF
>
> Thanks in advance,
> John.
>
>
>