Question

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

我想把当前窗体上的所有内容打印了，上面有edit控件，button按钮

Answer 1

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