Delphi 打印 只要打印出窗体上所有东西即可

来源：百度知道 编辑：UC知道 时间：2024/05/21 07:44:15
怎么用Delphi做一个打印的功能

只需要打印出窗体的所有东西即可

窗体上有一个GroupBox,GroupBox上有几个TLabel和TComboBox和Button,窗体上还有一个TChart

就这些东西了,我用窗体名直接 .Print; 打印出来的只有一个空的GroupBox,上边什么也没有,怎么能打印出GroupBox和它上边所有东西加TChart

给出完整代码,代码可以用的话再加200分
不结

form1.PrintScale:=poPrintToFit;
form1.Print;
是可以打印出来的啊，
你这样试下：
在USE里加入Clipbrd

procedure TForm1.Button1Click(Sender: TObject);
var
FormImage: TBitmap;
MyImage:TImage;
begin
FormImage := GetFormImage;
MyImage:= TImage.Create(nil);
try
Clipboard.Assign(FormImage);
MyImage.Picture.Assign(Clipboard);
MyImage.Picture.SaveToFile('D:/xxx.bmp');
finally
begin
MyImage.Free;
FormImage.Free;
end;
end;
end;
看看产生的xxx.bmp就知道了，如果xxx.bmp没问题建议看看是不是打印机的问题
窗体名直接 .Print只能打印能看见的部分，如果窗体有滚动条,直接看不见那部分是打不出来的

好像是以截图的思路实现的。。。以前在csdn上看到这样的帖子

卧槽，你自己解决了也说说你怎么解决的啊。我日了。最烦这种自己解决还TM不说怎么解决的人。