TChart的组合打印问题 我现在想打印两个chart控件和若干个Label,不知道如何能够把他们组合在一起打印出来,如果用form的print方法的话,会打印出其他的我不需要的按钮菜单等控件,请高手指点 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以把label的内容输出到 tchart的canvas上然后在打印。 to findcsdn具体如何实现呢?能不能给段代码参考参考?谢谢了 label的内容是不是可以考虑放到chart里去,连续打印两个chart可以这么做。var curRect:TRect;begin ... Printer.BeginDoc; //print char1 CurRect.Top :=0; CurRect.Bottom :=chart1.height; CurRect.left:=0; Currect.right:=printer.pagewidth; chart1.PrintPartialCanvas(Printer.Canvas,CurRect); //print chart2 CurRect.Top :=chart1.height+10; CurRect.Bottom :=chart1.height+chart2.height; CurRect.left:=0; Currect.right:=printer.pagewidth; chart1.PrintPartialCanvas(Printer.Canvas,CurRect); Printer.EndDoc; ...end; delphi 连接 公网数据库的问题 求助DELPHI7.0毕业设计(药品进销存管理系统)价钱好商量~~ 怎樣得到數據庫中增加紀錄的信息? 感谢Aiirii!接分! 如何实现DOS命令所完成的功能 为什么我的ACCESS数据库只读了,就打不开? access数据库与应用程序的连接问题 //急急急! 请问如何在以下这段代码执行过程中加入一个进程条以显示任务完成的情况? 问一个语音卡软件的问题 Treeview.savetofile保存时可以加入除text外的其他信息吗? 哪儿有deiphi7下载,请告诉一下。 求使用TThread产生多进程的最简单例子
具体如何实现呢?能不能给段代码参考参考?谢谢了
var
curRect:TRect;
begin
...
Printer.BeginDoc;
//print char1
CurRect.Top :=0;
CurRect.Bottom :=chart1.height;
CurRect.left:=0;
Currect.right:=printer.pagewidth;
chart1.PrintPartialCanvas(Printer.Canvas,CurRect);
//print chart2
CurRect.Top :=chart1.height+10;
CurRect.Bottom :=chart1.height+chart2.height;
CurRect.left:=0;
Currect.right:=printer.pagewidth;
chart1.PrintPartialCanvas(Printer.Canvas,CurRect);
Printer.EndDoc;
...
end;