delphi7中如何打印當前窗體的內容的源代碼

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