try
      if not DM.QueryTmp.Transaction.Active then DM.QueryTmp.Transaction.StartTransaction;
      with DM.QueryTmp do begin
              Close;
              SQL.Clear;
              SQL.Text := 'SELECT o.id, o.ordernum, o.ordertime, od.quantity, od.MOREINFOITEM, od.CURRMINFOMOREITEM, p.productname, f.id as FACID '+
                              'FROM ordersdetails od LEFT JOIN ORDERS o ON o.id = od.ordid '+
                                           'LEFT JOIN products p ON p.id = od.productid '+
                                           'LEFT JOIN FACILITY f ON p.ID_FAC = f.ID '+
                              'WHERE od.ordid = (SELECT first 1 skip 0 id from orders WHERE (APRKITCH = 0) AND (ORDERDATE+ORDERTIME between '+QuotedStr(DateTimeToStr(dtwStart+tmwStart))+' and '+QuotedStr(DateTimeToStr(dtwEnd+tmwEnd))+') and (ITEMKCH = '+IntToStr(DM.idKitchen)+') ORDER BY ORDERDATE DESC, ORDERTIME DESC)';

              ExecQuery;
      end;

  ******** код *******

            try



               try
                  W := GetActiveOleObject('Word.Application');
                except
                  W := CreateOleObject('Word.Application');
                end;
           
                W.documents.Open(ExtractFileDir(Application.ExeName)+'\template\check_kuh.dot');
                doc:= W.Documents.Item(1);

  /*************** код ********************/
                 W.ActivePrinter := 'XP-80';
                 W.ActiveDocument.Application.Run('PrintProgDoc', PagesStr); // здесь в документе макрос он и печатает
                 W.quit(false);
                 W:=UnAssigned;
              except
                 on E : Exception do begin
                         W.Quit(false);
                          W:=UnAssigned;
                 end;
              end;

     /****** код ******

  except
      if DM.QueryTmp.Transaction.Active then DM.QueryTmp.Transaction.Rollback;
      MessageDlg('Ïðîèçîøëà îøèáêà ïðè îáðàáîòêå çàïðîñà...', mtError, [mbOk], 0);
  end;                        

//***** второй документ***************/


  try
      if not DM.QueryTmp.Transaction.Active then DM.QueryTmp.Transaction.StartTransaction;
      with DM.QueryTmp do begin
          Close;
          SQL.Clear;
          SQL.Text := 'SQL код *****';
          ExecQuery;
       end;

  /*** код **/

           try
              
                try
                    W := GetActiveOleObject('Word.Application');
                except
                   W := CreateOleObject('Word.Application');
                end;
               
                //***** здесь код ******/

                Application.ProcessMessages;
                W.Options.PrintBackground := false;
                W.ActivePrinter := 'POS-58';
                W.PrintOut;
                W.quit(false);
                W:=UnAssigned;               

              except
                 on E : Exception do begin
                    Showmessage('Ïðîèçîøëà îøèáêà ïðè âûçîâå Word....('+E.Message+')');

                                           W.Quit(false);
                                           W:=UnAssigned;

                 end;
              end;

    except
      if DM.QueryTmp.Transaction.Active then DM.QueryTmp.Transaction.Rollback;
      MessageDlg('Ïðîèçîøëà îøèáêà ïðè îáðàáîòêå çàïðîñà...', mtError, [mbOk], 0);
      addRecordErrorLog(DateTimeToStr(Now)+' : Ïðîèçîøëà îøèáêà ïðè îáðàáîòêå çàïðîñà');
    end;