关于网友提出的“ fastreport43打印dbgrid控件里面的数据”问题疑问,本网通过在网上对“ fastreport43打印dbgrid控件里面的数据”有关的相关答案进行了整理,供用户进行参考,详细问题解答如下:
问题: fastreport43打印dbgrid控件里面的数据描述:
哥哥姐姐,跪求了。。。。我真的是要发疯了
如果谁有类似的DEMO可以传份给我的话,万分感谢。。。。
本人小菜鸟一只,希望各位大大帮帮我啊。现在分不多,等我以后分多了,
一定多多帮助别人。。。。
解决方案1:
正解 解决方案2:
作excel的吗?
if datam.ADOQuwantonlyrain.Active=true then
begin
try
Excelapplication1.Connect;
except
MessageDlg('Excel可能没有安装', mtError, [mbOk], 0);
Abort;
end;
ExcelApplication1.Visible[0] := True;
try
empty := EmptyParam;
ExcelApplication1.Workbooks.Add(empty,0);
ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Item[
ExcelApplication1.Workbooks.Count]);
ExcelWorkBook1.Activate ;
ExcelWorksheet1.ConnectTo((ExcelWorkbook1.Worksheets[1] as _WorkSheet));
for j:=1 to datam.ADOQuwantonlyrain.RecordCount do
begin
for i:=1 to datam.ADOQuwantonlyrain.fields.Count do
begin
excelworksheet1.Cells.Item[j,i]:=datam.ADOQuwantonlyrain.fields[i-1].AsString+#13;
end;
datam.ADOQuwantonlyrain.Next;
end;
except
ExcelWorkBook1.Close(xlDoNotSaveChanges);
ExcelApplication1.Disconnect;
end;
end else showmessage('无数据可保存!');
在dbgrid里面不用控件一样的可以打印,怎么写的一时也想不起来!
万一不行就转换到excel里就好处理了
看看demo就什么都解决了。