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只能打印能看見的部分,如果窗體有滾動條,直接看不見那部分是打不出來的