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

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不说怎么解决的人。