graph如何打印?(200分)

  • 主题发起人 主题发起人 zta
  • 开始时间 开始时间
procedure TForm1.BitBtn1Click(Sender: TObject)

begin
if printdialog1.execute then
begin
printer.begindoc

printer.canvas.draw(0,0,image1.picture.graphic)

printer.enddoc

end

end

 
procedure TForm1.Button1Click(Sender: TObject);
var
ScaleX, ScaleY: Integer;
R: TRect;

begin
Printer.BeginDoc
// **
with Printer do
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, Image1.Picture.Width * ScaleX,
Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(R, Image1.Picture.Graphic)
// **
finally
EndDoc
// **
end;
end;

 
谢谢大家,我说的是使用GRAPH控件,已做好图表,怎么打印?
 
我的d5,c4怎么没有一个graph控件?
 
请继续或结束
 
多人接受答案了。
 
接受答案了.
 
后退
顶部