Oracle Forms

This is MY Tabular form... i want to fix a button on form which will save and print out my tabular Selected columns.... save should all columns but neet to print-out some columns ... plz give me a query which will print some columns

1) id,Bcode,pname,Sprice,Discount,Debit these are columns names which i want to print out

This is My save button query which saving 2 records in one time

DECLARE

v_Alt Number:=0;

v_rec Number:=0;

BEGIN

--For validation if user press the save button when your CHART_OF_ACCOUNT1 block is empty

Go_Block('CHART_OF_ACCOUNT1');

Last_Record;

v_rec := :System.Cursor_Record;

First_Record;

IF v_rec = 0 THEN

Set_Alert_Property('ALERT_ERROR',Alert_Message_Text,'There is no record to save.');

v_Alt := Show_Alert('ALERT_ERROR');

Raise Form_Trigger_Failure;

END IF;

-------Validation part ends-----------

IF v_rec > 0 THEN

Go_Block('CHART_OF_ACCOUNT1');

First_Record;

IF :chart_of_account1.PName IS NOT NULL THEN

Next_Record;

END IF;

--For 2nd row

-- :Chart_of_account1.inv_no :=:bk_control.inv_no;

:chart_of_account1.id:= :Bk_Control.id;

:chart_of_account1.cdate:= :bk_control.cdate;

:chart_of_account1.pName := 'Cash Code';

:chart_of_account1.Color:= :chart_of_account1.Color;

:chart_of_account1.BCode :=:Bk_Control.Bcode;

:chart_of_account1.Credit :=:Bk_Control.Amountt;

:chart_of_account1.Debit := 0;

First_Record();

END IF;

:SYSTEM.MESSAGE_LEVEL := 25;

COMMIT_FORM;

:SYSTEM.MESSAGE_LEVEL := 0;

IF :System.Form_Status = 'QUERY' THEN

Set_Alert_Property('ALERT_CONFIRM',Alert_Message_Text,'Data Saved Successfully.');

v_Alt := Show_Alert('ALERT_CONFIRM');

--You can write like this after savein the data

 :bk\_control.pname := Null;

 :bk\_control.Color := Null;

 :bk\_control.Debit := Null;

 :bk\_control.Bcode := Null;

 :bk\_control.Color := Null;

 :bk\_control.SSIZE := Null;

 :bk\_control.qty := Null;

  ELSE

Set_Alert_Property('ALERT_CONFIRM',Alert_Message_Text,'Error while data saving :'||Dbms_Error_Code||'-'||Dbms_Error_Text);

v_Alt := Show_Alert('ALERT_CONFIRM');

END IF;

END;

--Clear_form(no_Validate);

clear_form(no_validate);

:Bk_Control.Cdate:=Sysdate;

Go_block('bk_control');

select nvl(max(Ac.sale.id),0)+1 into :Bk_Control.id from Ac.sale;

select nvl(max(Ac.sale.inv_no),0)+1 into :Bk_Control.inv_no from Ac.sale;

:LAST_TABULAR.Sr_noo:= 'Sr No';

:LAST_TAbULAR.Codee:= 'DATE';

:LAST_TAbULAR.Namee:= 'Party Name';

:LAST_TAbULAR.Narationn:= 'Naration';

:LAST_TAbULAR.Debitt:= 'Debit';

:LAST_TAbULAR.ITEM50:= 'Credit';

:LAST_TAbULAR.item51:= 'Amount';

GO_item('bk_control.Sr_no');