Вывод отчета(скриншота формы) в Word (Delphi)

[tito tarantula]

Добрый день! Можно ли сделать отчёт из программы на Delphi (вывод скриншота формы: всей или ее содержимого) в Word? Если да, то как?

[Stilet]

Скринуть можно примерно так:http://www.programmersforum.ru/showthread.php?t=151158
По поводу вставки картинки попробуй такое: http://www.programmersforum.ru/showthread.php?p=544625

[tito tarantula]

Нашёл более изящный способ:

//Сохранение отчета в Word
procedure TForm1.Word1Click(Sender: TObject);
var
Bit : TBitmap;
dir:string;
Word:Variant;
begin
  try
    Bit := TBitmap.Create;
    Bit.Width := Form1.ClientWidth;
    Bit.Height := Form1.ClientHeight;
    Bit.Canvas.CopyRect(Rect(0, 0, Form1.ClientWidth, Form1.ClientHeight), Form1.Canvas, Rect(0, 0, Form1.ClientWidth, Form1.ClientHeight));
    dir:=GetCurrentDir;
    Bit.SaveToFile('screen.bmp');
    try
      Word := CreateOleObject('Word.Application');
    except
      ShowMessage('Не могу запустить MS Word!');
    end;
    Word.Visible := True;
    Word.Documents.Add;
   //загрузка из файла в Word
    Word.Selection.InlineShapes.AddPicture(FileName:=dir+'\screen.bmp', LinkToFile:=False, SaveWithDocument:=True);
  except
    ShowMessage('Файл screen.bmp не сохранён!');
  end;
end;

Правда в папке с прогой появится screen.bmp, но это сильно программу не испортит))

[phomm]

DeleteFile в конце, не ?

[tito tarantula]

ОК, теперь ваще могу идеальные программы писать ))