请各位高手帮忙,预览打印可以,直接打印报错.
错误提示: list index out of bounds(0)
----------------------------------------------------------------------
a:=TfrMemoView(form3.frReport1.FindObject('Memo2'));
a.Prop['LEFT']:=adodataset3.FieldByName('1l').AsString;
a.Prop['top']:=adodataset3.FieldByName('1t').AsString;
b:=TfrMemoView(form3.frReport1.FindObject('Memo4'));
b.Prop['LEFT']:=adodataset3.FieldByName('2l').AsString;
b.Prop['top']:=adodataset3.FieldByName('2t').AsString;
form3.Show;
//form3.frReport1.PrepareReport;
form3.frReport1.PrintPreparedReport('',1,true,frall); //直接打印这报错
form3.frReport1.ShowReport;
form3.Close;请给位帮帮忙呀......
错误提示: list index out of bounds(0)
----------------------------------------------------------------------
a:=TfrMemoView(form3.frReport1.FindObject('Memo2'));
a.Prop['LEFT']:=adodataset3.FieldByName('1l').AsString;
a.Prop['top']:=adodataset3.FieldByName('1t').AsString;
b:=TfrMemoView(form3.frReport1.FindObject('Memo4'));
b.Prop['LEFT']:=adodataset3.FieldByName('2l').AsString;
b.Prop['top']:=adodataset3.FieldByName('2t').AsString;
form3.Show;
//form3.frReport1.PrepareReport;
form3.frReport1.PrintPreparedReport('',1,true,frall); //直接打印这报错
form3.frReport1.ShowReport;
form3.Close;请给位帮帮忙呀......
解决方案 »
- delphi xe2写的服务
- 如何实现简单的查询,添加,删除操作(用ADO实现)
- Richedit中输入错误的字变颜色(注意有中英文,190分给一人)
- 语法
- 内存流数据转化成jpeg格式后,如何将其保存为AVI视频格式
- 请各位大虾帮忙,我做了个有关dll的东西不知哪里出错!非常急!在线等!
- 最近在想做个大学排课系统!
- 为什么在socketconnectiong连接的时候label的内容不显示呢??
- 程序中引用了一个控件必须将Borlndmm.dll文件和EXE放到一块否则无法运行
- 急急急!在窗体A中如何获取窗体B中的光标所在的TEdit的句柄?
- 关于导出问题
- 在Access中查询正确,换成SQL就不行,为什么?
frReport.LoadFromFile( ExtractFilePath( Application.ExeName ) + '\frf\' + 'fp.frf' );
frReport.PrepareReport;
frReport.PrintPreparedReportDlg;
form3.frReport1.PrintPreparedReport('',1,true,frall); //直接打印这却报错
请高手指点