问题5: 设计时通过程序动态向报表增加一个ＴＥＸＴ
uses
RVClass, RVProj, RVCsStd,RvCsRpt;
var
MyBand: TRaveBand;
MyRegion: TRaveRegion;
MyPage: TRavePage;
MyText,mytext1: TRaveText;
begin
RvProject1.Open;
With RvProject1.ProjMan do begin
MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage;
MyRegion:= FindRaveComponent('Region1',MyPage) as TRaveRegion;
MyBand := FindRaveComponent('Band1',MyRegion) as TRaveBand;
MyText:=TRaveText.Create(Myband);
MyText.Parent:=Mypage;
MyText.Name:=GetUniqueName('Text125',MyPage,false);
MyText.Top:=0.2;
MyText.Left:=0.7;
MyText.Width:=200;
MyText.Height:=200;
MyText.Text:='Delphi';
MyText.Font.Size :=20;//设置字体的属性
MyText.Font.Color :=ClRed;
MyText.Font.Name :='隶书';
AddComponent(MyText);
end; { with }
RvProject1.ExecuteReport('Report1');
RvProject1.Close;
问题6:在报表中插入日期或页数
在RAVE设计时增加一个DATATEXT控件,其DATAFIELD属性有相关的设置
Report Variables中有CurrentPage当前页,TotalPages总页数,DateShort短日期,DateLong长日期,
TimeLong 长时间
问题7：通过参数向报表传值，和问题１有点相同
With RaveProject1 do begin
Open;
SetParam('ParamName','ParamValue');
ExecuteReport('Report1');
Close;
end; { with }
问题8：去掉打印预览时出现的Output Options对话框
RvSystem.SystemSetups中的ssAllowSetup 设为False
问题9：ndr格式转化为pdf
var
NDRStream: TMemoryStream;
begin
NDRStream := TMemoryStream.Create;
try
NDRStream.LoadFromFile('files\test.ndr');
RvRenderPDF1.PrintRender(NDRStream, 'files\test.pdf');
finally
NDRStream.Free;
end; { tryf }
ShowMessage('NDR Converted');
end;
问题10: 分栏显示(snaking columns)
name1 name6
name2 name7
name3 name8
name4
name5
窗体添加以下控件Rvsystem1,table1,DataSource1
procedure TForm1.Button1Click(Sender: TObject);
begin
ReportSystem1.Execute;
end;
procedure TForm1.ReportSystem1Print(Sender: TObject);
begin
With (Sender as TBaseReport),Table1 do begin
SetFont('Times New Roman', 20);
Bold := True;
Underline := True;
Home;
PrintCenter('NAME LISTING', PageWidth / 2.0);
SectionTop := 1.0;
MarginBottom := 0.75;
Home;
While not Table1.EOF do begin
SetColumns(2,0.5);
{OnNewColumn will be called after each call to SetColumns and on each
new column after that}
While (ColumnLinesLeft > 0) AND (NOT Table1.EOF) do begin
If FieldByName('NAME').AsString <> '' then begin
Println(FieldByName('NAME').AsString);
end; {if}
Table1.Next;
end; {while}
If not Table1.EOF then begin
NewPage;
end; {if}
end; {while}
end; { with }
end;
procedure TForm1.ReportSystem1BeforePrint(Sender: TObject);
begin
Table1.First;
end;
procedure TForm1.ReportSystem1NewColumn(Sender: TObject);
begin
With Sender as TBaseReport do begin
SetFont('Times New Roman', 14);
Bold := True;
UnderLine := True;
AdjustLine;
Println(' NAME');
SetFont('Arial',12);
AdjustLine;
end; {with}
end;
procedure TForm1.ReportSystem1PrintFooter(Sender: TObject);
begin
With Sender as TBaseReport do begin
MarginBottom := 0.5;
PrintFooter('Page ' + Macro(midCurrentPage)
+ ' of ' + Macro(midTotalPages), pjCenter);
MarginBottom := 0.75;
end; {with}
end;
