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

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

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

上一个：delphi在哪里声明数据结构呢??
下一个：pascal编缉工具FP与delphi相比哪个更好用？