Print reports directly in a local printer

Question

Hello buddies,
Well, i wanna know if exists some way to print a reports directly in a local printer when using forms 9i ...
the procedure built-in "PRINT", open a dialog box to choose the printer to send the printscreen... maybe exists a way to make it for the reports...
thx a lot.
Regards,
Prado

Answer 1

This will work for you.
DECLARE
pl_id ParamList ;
Repid Report_Object ;
Rep_Status Varchar2(20) ;
Tag Varchar2(20) ;
BEGIN
:Global.Printer := '\\Pc Name\Printer Name';
-- printer_name is the name of the printer on your local machine
-- The printer should be a whole name like 'HPCOLOR6L'
-- The printer should be shared, and should not have blanks or other special chars
Pl_Id := Get_Parameter_List (Tag) ;
IF NOT Id_Null (Pl_Id) THEN
Destroy_Parameter_List (Pl_Id) ;
END IF ;
Pl_Id := Create_Parameter_List (tag) ;
add_parameter (Pl_Id , 'paramform' , Text_Parameter , 'NO') ;
Repid := Find_Report_Object('rep010_bpass') ; -- name of the report where it should be definded in the report section of the Oracle forms builder
Set_Report_Object_Property(Repid,REPORT_FILENAME,'Report path with report name') ;
Set_Report_Object_Property(Repid,REPORT_EXECUTION_MODE,RUNTIME) ;
Set_Report_Object_Property(Repid,REPORT_COMM_MODE,SYNCHRONOUS) ;
Set_Report_Object_Property(Repid,REPORT_DESTYPE,Printer) ;
Set_Report_Object_Property(Repid,REPORT_DESNAME,Global.Printer ) ;
Set_Report_Object_Property(Repid,REPORT_SERVER,'Report server name') ;
IF Rep_Status = 'FINISHED' THEN
NULL ;
ELSE
MESSAGE ('Error Running report ...') ;
MESSAGE ('Error Running report ...') ;
END IF ;
END ;