Print a report to a specific printer from Forms

Question

I have a form from where i want to print a report to a specific printer (not the default printer). Is there any way to do this from Forms 9i. Im using the Orarrp but it pops up the printer dialog and shows the default printer. Is there any way to harcod the printer name. the printer is on the network..

Answer 1

If i go to my control pannel and see the list of printers i take the printer name from there. should i put the path of the printer? i kno the port of the printer .it come like ip_192.1.11.1_p1 ..how do i define the printer name? if i dnt give the printer name shouldnt if fire to the default printer ..my code is as follows
declare
REPID REPORT_OBJECT;
V_REP VARCHAR2(100);
REP_STATUS VARCHAR2(20);
BEGIN
REPID := FIND_REPORT_OBJECT('CUS_PRINT');
SET_REPORT_OBJECT_PROPERTY(REPID,REPORT_EXECUTION_MODE,BATCH);
     SET_REPORT_OBJECT_PROPERTY(REPID,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(REPID,REPORT_DESTYPE,PRINTER);
     SET_REPORT_OBJECT_PROPERTY(REPID,REPORT_SERVER,'test');
SET_REPORT_OBJECT_PROPERTY(REPID,REPORT_OTHER,'P_CUSREF='||:CTRL01.CUSREF||' PARAMFORM=NO');
     MESSAGE('SET REPORT PROP');
V_REP := RUN_REPORT_OBJECT(REPID);
REP_STATUS := REPORT_OBJECT_STATUS(V_REP);
MESSAGE('RAN REPORT');
WHILE REP_STATUS IN ('RUNNING','OPENING_REPORT','ENQUEUED') LOOP
     REP_STATUS := REPORT_OBJECT_STATUS(V_REP);
END LOOP;
     IF REP_STATUS = 'FINISHED' THEN
          IF NVL('TEST',' ') <> ' ' THEN
          GEN_ALERT('NULL_ALERT','TEST');
          END IF;
          ELSE
     GEN_ALERT('NULL_ALERT','Error when running report');
     END IF;
END;
what should the desformat of the report should be..when im trying to run this it gives me 'no data found' error...why???