Thanks will give this a try -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of jan johansen Sent: Tuesday, March 25, 2008 10:55 AM To: RBASE-L Mailing List Subject: [RBASE-L] - Re: PRINTING ISSUE
Steve, These kind of things are difficult to resolve without seeing the structure of the report. In general I would make a backup copy of the report so you always have something to go back to. I would tackle each of the problems one at a time. I mean the first issue is that each invoice should begin on a new page so the first break should be your invoiceid and in the break you should have On Break Change start a newpage selected. The report at first should be able to run without the cursor and then you can add some of the options such as DUPLEX and CORRELATION. Jan -----Original Message----- From: "Steve Breen" <[EMAIL PROTECTED]> To: [email protected] (RBASE-L Mailing List) Date: Tue, 25 Mar 2008 10:17:06 -0400 Subject: [RBASE-L] - PRINTING ISSUE Did anyone have any ideas ?? -------------------------------------------------------------------------------------------------------- Here is my issue. I am trying to print two sided Invoices but also need 2 pages collated. My first problem is that when I try to accomplish this and there is only a single page the same invoice prints on the back side of the page one and this should print on a separate page. Next Some Invoices (Very Few) can be 3 pages log and this really gums up the works The code I am using is as follows. I have just about completed this project and if I can get past this hurdle I will have it finished. Note: I have tried different breakpoints. IE: custnub2 and pon ?? Is the answer a page feed some place. I am at a loss here -- START OF CODE FOR TWO PAGE INVOICES -- CURRENTLY ONLY TRANSADVANTAGE NEEDS TWO PAGE INVOICES DROP CURSOR c1 DECLARE c1 CURSOR FOR SELECT pon FROM attinv_master_cust + WHERE (parentcustid = 164 OR parentcustid = 110 OR parentcustid = 193) + ORDER BY cdiinv pon OPEN c1 WHILE (1=1) THEN FETCH c1 INTO vpon IND i1 IF SQLCODE <> 0 THEN BREAK ENDIF PRINT new_invoice3 WHERE pon = .vpon + OPTION PRINTER + |DUPLEX HORIZONTAL + |COLLATION ON + |COPIES 2 + |ORIENTATION PORTRAIT + |PRINTER_NAME \\rsd01\RICOH Aficio SP 8100DN PCL6 ENDWHILE -- END OF TWO PAGE CODE Stephen Breen CDI Services, Inc. Road Support Division
