create or replace procedure test1_tpl_x(
  p_tpl_id number
  ) is
  l_tpl plpdf_type.tr_tpl_data;
  l_blob blob;
  l_tpl_id number;
 begin
   l_tpl := plpdf_parser.LoadTemplate(p_tpl_id);
   
   plpdf.init;
   l_tpl_id := plpdf.InsTemplate(l_tpl);
   plpdf.NewPage;
   plpdf.useTemplate(l_tpl_id);
   plpdf.SetPrintFont('Arial',null,12);
   plpdf.SetColor4Text(plpdf_const.Red);
   plpdf.SetColor4Filling(plpdf_const.Green);
      
	 plpdf.PrintCell(
     p_w => 50,
     p_h => 10,
     p_txt => 'Hello World!',
     p_fill => 1
     );
   plpdf.SendDoc(l_blob);

	-- print
	/*
	owa_util.mime_header('application/pdf',false);
        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;
/