？？？※※※※[Delphi 不可完成的打印任务高手们来看看！（200）分]※※※※※※？？？

Question

分页预览，每页打印不同的，图形！[其实不难就是不得其法]
列：共三页]
//要求：
with QuickRep1.Printer.Canvas  do
Begin
   
//1）页一，绘制一条线；
MoveTo(40,40); LineTo(740,40);
//2）页二，绘制条斜线；
MoveTo(0,0); LineTo(700,700) ;
//3）页三，绘制一个椭圆;
Ellipse(i,500,300,600);
end;
注：最好用QuickRep生成预览！
http://expert.csdn.net/Expert/TopicView1.asp?id=2077304
这个问题回答了也可，其实是一样的问题！

Answer 1

QuickRep1EndPage 和 QuickRep1StartPage 可实现1和3
中间2的怎么搞？

Answer 2

//http://expert.csdn.net/Expert/TopicView1.asp?id=2073178
  //http://expert.csdn.net/Expert/TopicView1.asp?id=2041458
如果回答正确这两个的分也送！

Answer 3

我再也不会用Third方的打印组件了。

Answer 4

Delphi6 除了 QuickRep系列好像没有可以生成打印预览的东西了啊!

Answer 5

Printer.NewPage 完了在那里在绘图!

Answer 6

QuickRep1EndPage 和 QuickRep1StartPage 可以用绘图函数其他的事件好像不行啊!

Answer 7

晕~~~当然还是在Canvas上,还能在哪?

Answer 8

//老大我知道怎么绘图，就是想问QuickRep1.Printer.NewPage;分页后：如第2页的怎么画
//[要打印预览]
//代码：--》
procedure TForm1.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
with QuickRep1.Printer.Canvas  do
Begin
 MoveTo(20,20);
  LineTo(700,700);
  MoveTo(0,0);
  LineTo(700,700) ;
   QuickRep1.Printer.NewPage;
  {MoveTo(50,50);
  LineTo(700,700) ;}
 end;
end;
{如上面的代码QuickRep1.Printer.NewPage;
后在画线就报错！}