다음과 같이 코딩했습니다.
procedure TfrmOA.OAFormPrintClick(Sender: TObject);
var Soo: TBitmap;
begin
Printer.BeginDoc;
Soo := TBitmap.Create;
Soo := ActiveMDIChild.GetFormImage;
Printer.Canvas.Draw(10, 10, Soo);
Printer.EndDoc;
Soo.Free;
end;
실행하면 작업표시줄에 프린터아이콘이 잠깐 나오고는 없어집니다.
물론 프린터에는 출력할려고 하지도 않습니다.
꼭!꼭!꼬옥! 조언을 바랍니다.