两者当然没有关系了,你把用PRINTER输出的过程写成过程, procedure print(PCanvas:Tcanvas); begin 里面就是你打印的内容 如: with Pcanvas do begin textout... lineto... end; 打印的时候你就调用print(printer.canvas) 预览的时候你用print(image1.canvas); 当然你要先把image1放到合适的位置来预览(现在你该明白了吧,20也太少了,不过不是为分而来,我也刚用PRINTER在做一个项目) end;
具体点,如何使用PRINTER的CANVAS预览报表
好人啊做到底
IMAGE1如何定义的和PRINT 有何关系?
procedure print(PCanvas:Tcanvas);
begin
里面就是你打印的内容
如:
with Pcanvas do
begin
textout...
lineto...
end;
打印的时候你就调用print(printer.canvas)
预览的时候你用print(image1.canvas);
当然你要先把image1放到合适的位置来预览(现在你该明白了吧,20也太少了,不过不是为分而来,我也刚用PRINTER在做一个项目)
end;