[true]

Ну я не просто так код выложил.. то что вы сказали это есть в faq но у меня ошибки..

незнаю я что делать вот добавил

Код:

procedure TForm1.Word1Click(Sender: TObject);

var
filename:OleVariant;
j,a: integer;
 AMsgDialog: TForm;
  ACheckBox: TCheckBox;
  begin
 AMsgDialog := CreateMessageDialog('Это тестовое сообщение.', mtWarning, [mbYes, mbNo]) ;
  ACheckBox := TCheckBox.Create(AMsgDialog) ;
  with AMsgDialog do
  try
   Caption := 'Заголовок' ;
   Height := 150;

   with ACheckBox do
   begin
    Parent := AMsgDialog;
    Caption := 'Не показывать больше...';
    Top := 90;
    Left := 8;
    Width:= 200;
   end;

   if (ShowModal = ID_YES) then
   begin
    if ACheckBox.Checked then
      AMsgDialog.Enabled:=false;
    else



begin


if OpenDialog1.Execute
then
filename:=OpenDialog1.FileName;



WordApplication1.Connect;

WordApplication1.Documents.Open(FileName,
  EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);


DataModule2.ADOTable1.First;
a:=0;
j:=2;

while a<DataModule2.ADOTable1.RecordCount do
begin

WordDocument1.Tables.Item(1).Cell(j,1).Range.Text:=DataModule2.ADOTable1DSDesigner2.Value;
WordDocument1.Tables.Item(1).Cell(j,2).Range.Text:=DataModule2.ADOTable1DSDesigner3.Value;
WordDocument1.Tables.Item(1).Cell(j,3).Range.Text:=DataModule2.ADOTable1DSDesigner4.Value;
WordDocument1.Tables.Item(1).Cell(j,4).Range.Text:=DataModule2.ADOTable1_.AsString;

WordDocument1.Tables.Item(1).Cell(j,5).Range.Text:=DataModule2.ADOTable1_2.Value;
WordDocument1.Tables.Item(1).Cell(j,6).Range.Text:=DataModule2.ADOTable1_3.Value;

WordDocument1.Tables.Item(1).Rows.Add(EmptyParam);
a:=a+1;
j:=j+1;
DataModule2.ADOTable1.Next;
end;

filename:=OpenDialog1.FileName+DateToStr(Date)+'.doc';
WordDocument1.SaveAs(filename);
WordDocument1.Close;
WordApplication1.Disconnect;
ShowMessage('Операция заершена успешно!');
end;

if ACheckBox.Checked then
AMsgDialog.Enabled:=false;
else

что прописать если будет не отмечено, как сделать чтобы печать потом началась, после выбора файла?