1.这样试试看,我没有打印机:将只预览不打印的View设标志,比如tag='NoPrint' //设置预览时可见 procedure TForm1.frReport1BeforePrint(Memo: TStringList; View: TfrView); begin if View.Tag='NoPrint' then View.Visible := true; end; //设置打印时不可见 procedure TForm1.frReport1PrintReport; var i, j: Integer; begin for i:=0 to frReport1.Pages.Count-1 do for j:=0 to frReport1.Pages[i].Objects.Count-1 do with TfrView(frReport1.Pages[i].Objects[j])do if Tag='NoPrint' then Visible := false; end;2.我做过好多这样的套打了
2.
固定页头页尾, detail band的数目=取整
((页高度-页上距边-页下距边-页头高-页尾高)/detail band的高度)根据这个,你可以慢慢调整出你要的页面
//设置预览时可见
procedure TForm1.frReport1BeforePrint(Memo: TStringList; View: TfrView);
begin
if View.Tag='NoPrint' then View.Visible := true;
end;
//设置打印时不可见
procedure TForm1.frReport1PrintReport;
var i, j: Integer;
begin
for i:=0 to frReport1.Pages.Count-1 do
for j:=0 to frReport1.Pages[i].Objects.Count-1 do
with TfrView(frReport1.Pages[i].Objects[j])do
if Tag='NoPrint' then
Visible := false;
end;2.我做过好多这样的套打了
但是还是把Tag='NoPrint'也打出来了啊