急(50分)

请问大侠，如果我输入一条记录后马上要打印这一条记录，如何写语句，谢谢

tempstr :=DataForm.stock.FieldByName('单号').asstring;
if CB_Print.Checked then
begin
with DataForm.Printdo
begin
Close;
Sql.Add('select * from t_stock where 单号='''+tempstr+'''');
Open;
end;
with RoundPrintdo
begin
LoadFromFile(Gs_AppPath+'随打.frf');
t :=Tfrview(FindObject('Title'));
if(assigned(t))then
t.Memo.Text := Gs_HotelAName+s_Title;
preparereport;
printpreparedreport('1-',1,true,frAll);
end;
end;

反应真快。