delphi7中如何打印当前窗体的内容的源代码

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只能打印能看见的部分，如果窗体有滚动条,直接看不见那部分是打不出来的