出差才回来。
刚刚看见ldhlyh老兄的答案。我发现2个问题。
1.文件Project1.rav没有利用。
RvProject1.ProjectFile= "C:/1_rave/Project1.rav"
2.*.bmp文件的在报表中很难调整成原始尺寸。
请高人指教。
============
本人根据ldhlyh老兄的答案将程序修改如下:
●准备工作
①先在Form1上添加一个控件RvSystem1。
②再在Form1上添加一个控件按钮。
●RvSystem1控件OnPrint事件
procedure TForm1.RvSystem1Print(Sender: TObject);
var
Bitmap:TBitmap;
begin
with sender as TBaseReportdo
begin
YPos := 3.4;
PrintCenter('PaintBitmapRect()',6.375);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('G:/USE_TOOL/ai/pdf417_tax.BMP');
PrintBitmapRect(0.375,1.5,7.375,5.5,Bitmap);
Bitmap.Free;
end;
end;
●按钮总的程序
procedure TForm1.btn1Click(Sender: TObject);
begin
RvSystem1.Execute;
end;