如何打印窗体上的内容，如memo,edit里的文字？ ( 积分: 50 )

如何打印窗体上的内容，如memo,edit里的文字？

用fastreport往里面传参数就可以了!

//获得窗口文本
function GetWndText(hWnd: HWND): String;
Var
Ret:LongInt;
mTextChar;
Buf:Integer;
begin
Ret:=SendMessage(hWnd,WM_GETTEXTLENGTH,0,0)+1;
GetMem(mText,Ret);
try
Buf:=LongInt(mText);
SendMessage(hWnd,WM_GETTEXT,Ret,Buf);
Result:=StrPas(mText);
finally
FreeMem(mText,Ret);
end;
end;