主窗体里面打开子窗体&&打印饼图《Delphi 6数据库开发典型实例》--图表的绘制

 1 implementation
 2 uses printers;
 3 {$R *.dfm}
 4 
 5 procedure Tfrm_Print.btn_PrintClick(Sender: TObject);
 6 var h,w:longint;
 7 begin
 8   Screen.Cursor := crHourGlass;
 9   try
10     Printer.BeginDoc;
11     try
12       h:=Printer.PageHeight;
13       w:=Printer.PageWidth;
14 
15       Chart1.PrintPartial(  Rect(  w div 10,
16                                    h div 3 ,
17                                    w - (w div 10),
18                                    h - (h div 10) ));
19 
20       Printer.EndDoc;
21     except
22       on Exception do
23       begin
24         Printer.Abort;
25         Printer.EndDoc;
26         raise;
27       end;
28     end;
29   finally
30     Screen.Cursor:=crDefault;
31   end;
32 end;