DECLARE
vrepid report_object;
vrep VARCHAR2 (100);
v_show_document VARCHAR2 (2000) := '/reports/rwservlet?';
v_report_server VARCHAR2 (30) := 'servername';
BEGIN
IF GET_APPLICATION_PROPERTY (user_interface) = 'WEB'
THEN
client_HOST('cmd /c rwrun server=servername report=test1.rdf userid=usernmae/password@develop desformat=pdf destype=printer');
ELSE
vrepid := FIND_REPORT_OBJECT ('REPORT1');
vrep := RUN_REPORT_OBJECT (vrepid);
web.show_document
( '[url]http://server:port/reports/rwservlet/getjobid[/url]'
|| SUBSTR (vrep, INSTR (vrep, '_', -1) + 1)
|| '?'
|| 'server=servername',
'_blank'
);

END IF;
END;

DECLARE
  vrepid                report_object;
  vrep                  VARCHAR2 (100);
  v_show_document       VARCHAR2 (2000) := '/reports/rwservlet?';
  v_report_server       VARCHAR2 (30)   := 'server';
  name1 VARCHAR2 (50);
  name2	VARCHAR2 (50);
   
BEGIN	
   name1:=client_win_api_environment.read_registry
          ('HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows',
           'Device',true);
   name2:=SUBSTR(name1,1,instr(name1,',',1)-1);
	
   IF GET_APPLICATION_PROPERTY (user_interface) = 'WEB'
   THEN
      v_show_document := v_show_document
          -- Report server
         || '&server='
         || v_report_server
         -- Report name
         || '&report=test1.rdf'
         -- Reports parameters
         || '&destype=printer'
         || '&desformat=PDF'
         || '&desname='
         ||  name2;
       web.show_document (v_show_document);
   ELSE
      vrepid := FIND_REPORT_OBJECT ('REPORT1');
      vrep := RUN_REPORT_OBJECT (vrepid);
      web.show_document( '[url]http://servername:port/reports/rwservlet/getjobid[/url]'||
            SUBSTR (vrep, INSTR (vrep, '_', -1) + 1)|| '?'|| 'server=server','_blank');
   END IF;
END;