请问用fastreport控件如何直接打印到打印机？？？？而不用经过预览！

Question

frreport1.PrintPreparedReport('',1,true,frall);

Answer 1

hmily1688(孤独一剑)不行啊那个报表文件怎么样加载到frreport1里面啊

Answer 2

我用到一个预览窗体fast_preview_2,上放一个preview控件
我在这个窗体建一过程
procedure Tfast_preview_2.print_fun(frreport1:tfrreport);
begin
frreport1.Preview:=fast_preview_2.frPreview1;
    frreport1.PrepareReport ;
 frreport1.PrintPreparedReport('',1,true,frall);
end; 
这样再试试

Answer 3

你用下列代码试试，
frreport1.clear;
frreport1.LoadFromFile('.\frf\fr_class1.frf');
frreport1.prepare;
frreport1.PrintPreparedReport('',1,true,frall);
我的程序是可以预览，也可以不预览；自己定义了一个过程；在打印预览窗体frm_preview；
在窗体所在单元中public中声明
procedure print_fun(frreport1,tfrreport);procedure print_fun(frreport1,tfrreport);
begin
   frreport1.Preview:=frm_preview.frPreview1;
   frreport1.PrepareReport ; 
  if public_file.use_preview then
        begin
           frreport1.DefaultCopies:=1;
           frreport1.ShowPreparedReport;
           if  frm_preview.win_pos=false then
           begin
                
                fast_preview_2.WindowState:=wsnormal;
           end
           else
           begin
                frm_preview_.WindowState:=wsMaximized;           end;
           if frm_preview.ShowModal=mrok then
           begin
               if not public_file.use_print_set then
               begin
                   frreport1.PrintPreparedReport('',1,true,frall);
               end;
           end;
        end
        else//如果有用预览
           frreport1.PrintPreparedReport('',1,true,frall);end; 打印按钮的代码如下
 frreport1.LoadFromFile('.\fr_dept.frf');
 frm_preview.print_fun(frreport1);
我要打印的文件是fr_dept.frf,放在当前目录下

Answer 4

你把程序给我发过来好吗,[email protected]

Answer 5

以下代码在Delphi6下调试成功 
    frReport1.Clear;
    frreport1.LoadFromFile(str_path+'\frf\fr_day.frf');
    frreport1.PrepareReport;
    frreport1.PrintPreparedReport('',1,true,frall);