21. Print row

CREATE OR REPLACE procedure test21 is
-- Print row
l_blob blob;
l_filename varchar2(30) := '123.pdf';
l_datas plpdf_type.t_row_datas; -- array of datas
l_borders plpdf_type.t_row_borders; -- array of borders
l_widths plpdf_type.t_row_widths; -- array of widths
l_aligns plpdf_type.t_row_aligns; -- array of aligns
l_styles plpdf_type.t_row_styles; -- array of styles
l_maxlines plpdf_type.t_row_maxlines; -- array of max lines
begin
plpdf.init; -- initialize: page orientation: portrait (default), unit (default): mm, default page format (default): A4
plpdf.NewPage; -- begin a new page, without parameters means: page orientation: default (portrait)

-- set borders
l_borders(1) := '1';
l_borders(2) := '1';
l_borders(3) := '1';

-- set widths
l_widths(1) := 30;
l_widths(2) := 40;
l_widths(3) := 100;

-- set aligns
l_aligns(1) := 'R';
l_aligns(2) := 'C';
l_aligns(3) := 'L';

plpdf.SetPrintFont('Arial','B',12); -- set print font
plpdf.SetColor4Filling(200,220,255); -- set background color
-- print headers
plpdf.PrintCell(l_widths(1),10,'ROWNUM','1',0,'C',1);
plpdf.PrintCell(l_widths(2),10,'OWNER','1',0,'C',1);
plpdf.PrintCell(l_widths(3),10,'OBJECT NAME','1',1,'C',1);

plpdf.SetPrintFont('Arial',null,12); -- set print font

for f_obj in (select rownum, owner, object_name from all_objects where rownum <= 10) loop
-- set datas
l_datas(1) := to_char(f_obj.rownum);
l_datas(2) := f_obj.owner;
l_datas(3) := f_obj.object_name;
plpdf.Row_Print2(l_datas,l_borders,l_widths, l_aligns, l_styles,l_maxlines); -- print row
end loop;

plpdf.SendDoc(l_blob); -- create content

-- print
/*
owa_util.mime_header('application/pdf');
htp.p('Content-Disposition: inline; filename="' || l_filename || '"');
htp.p('Content-Length: ' || dbms_lob.getlength(l_blob));
owa_util.http_header_close;  
wpg_docload.download_file(l_blob);
*/

-- or store
insert into STORE_BLOB (blob_file, created_date) values (l_blob, sysdate);
commit;
end;
/

Source: test21.prc

Result: test21.pdf