How to open PDF in Form6i and send it to printer

Question

I am still using very old version of developer which is developer 6i.
I would like to know how to do the following two things:
1. open a set of PDF files (which are stored in DB as BLOB) in Form6i
2. print them all out by a single button click in Form6i
Thank you.

Answer 1

I have followed the suggested program codes (with minor modification) listed in:
http://codasys.com/batch_print_pdf_using_wpg_docload.htm
There is no compile error; however, there is runtime errors as showed below:
SQL> set serveroutput on buffer 1000000
SQL> exec batch_print.p_batch_print_pdf(to_date('2011/02/10', 'YYYY/MM/DD'));
BEGIN batch_print.p_batch_print_pdf(pa_global.cur_prcs_date); END;
ERROR at line 1:
ORA-06502: PL/SQL: numeric or value error
ORA-06512: at "SYS.OWA_UTIL", line 323
ORA-06512: at "SYS.HTP", line 860
ORA-06512: at "SYS.HTP", line 975
ORA-06512: at "SYS.HTP", line 993
ORA-06512: at "LOAN_ADMIN.BATCH_PRINT", line 17
ORA-06512: at line 1
Here is the code I am using:
CREATE OR REPLACE PACKAGE batch_print IS
PROCEDURE p_batch_print_pdf(pi_rpt_date IN DATE);
PROCEDURE p_download_file(pi_rpt_id IN VARCHAR2, pi_rpt_date IN DATE);
END batch_print;
CREATE OR REPLACE PACKAGE BODY batch_print IS
g_rpt_date DATE;
PROCEDURE p_batch_print_pdf(pi_rpt_date IN DATE) IS
CURSOR c_rpt_job IS
SELECT dp.job_exe
FROM dayend_log dl, dayend_proc dp
WHERE dl.job_sts = 'FIN'
AND dl.prcs_dt = pi_rpt_date
AND dl.seq_no = dp.seq_no
AND dp.job_typ = 'RPT'
ORDER BY dl.log_dt;
BEGIN
g_rpt_date := pi_rpt_date;
htp.p('Printing ...');
FOR r_rpd IN c_rpt_job LOOP
htp.p('<SCRIPT LANGUAGE="JavaScript">');
htp.p('DocloadWin = window.open("batch_print.p_download_file?p_id='||r_rpd.job_exe||'"'
||',"DocloadWin","width=150,height=150,left=10");');
htp.p('</script>');
END loop;
htp.p('<SCRIPT LANGUAGE="JavaScript">');
htp.p(' this.close();');
htp.p('</script>');
END p_batch_print_pdf;
PROCEDURE p_download_file ( pi_rpt_id IN VARCHAR2, pi_rpt_date IN DATE) IS
CURSOR c_pdf_rpt IS
SELECT *
FROM rpt_backup
WHERE rpt_id = pi_rpt_id
AND prcs_date = g_rpt_date;
BEGIN
FOR r_pdf IN c_pdf_rpt LOOP
owa_util.mime_header('application/x-pdfprint',FALSE);
htp.p('Content-Length: ' || dbms_lob.getlength(r_pdf.report));
owa_util.http_header_close;
wpg_docload.download_file( r_pdf.report );
END loop;
END p_download_file;
END batch_print;
Please help!