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只能打印能看见的部分,如果窗体有滚动条,直接看不见那部分是打不出来的
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)