打印预览:
if R_ajml.Checked=true then
begin
RvSystem.DefaultDest:=rdpreview;
RvProject.SelectReport('ajml',false);
RvProject.Execute;
end;
打印:
if R_ajml.Checked=true then
begin
RvSystem.DefaultDest:=rdprinter;
RvProject.SelectReport('ajml',false);
RvProject.Execute;
end;
不显示对话框的
RvSystem.ssAllowPreviewSetup := false