procedure TfmMain.tPrintExecute(Sender: TObject);
begin
  d := Trunc(Now);
with dm do
begin
  qPrint.Close;
  qPrint.SQL.Clear;
  qPrint.SQL.Add('Select cDate, cOper, cName, cSum, cCurs, cDiscount, TotalSum, FIO, Dok from CashDok where cDate between :d1 and :d2');
  qPrint.SQL.Add('order by cName, cOper, cDate');
  qPrint.ParamByName('d1').AsDateTime := d;
  qPrint.ParamByName('d2').AsDateTime := d + 1;
  qPrint.Open;

 // Создаем массив элементов, полученных в результате запроса
 XArr:=VarArrayCreate([1,qPrint.FieldCount],varVariant);
 XL:=CreateOLEObject('Excel.Application'); {Создание OLE объекта}
 XL.WorkBooks.add;
 XL.visible:=true;

 j := 4;

 XL.Range['A1','I1'].MergeCells:=True; {Объединение ячеек}
 XL.Range['A1','A1'].Value :='Реестр по обмену валют за '+
  DateTimeToStr(Now);
 XL.Range['A1','A1'].Font.Bold:=True;
 XL.Range['A1','A1'].Font.Color:=clRed;
 XL.Range['A3','A3'].Value :='Дата и время совершения операции';
 XL.Range['A3','A3'].Font.Bold:=True;
 XL.Range['B3','B3'].Value :='Вид операции';
 XL.Range['B3','B3'].Font.Bold:=True;
 XL.Range['C3','C3'].Value :='Вид валюты';
 XL.Range['C3','C3'].Font.Bold:=True;
 XL.Range['D3','D3'].Value :='Сумма валюты';
 XL.Range['D3','D3'].Font.Bold:=True;
 XL.Range['E3','E3'].Value :='Курс обмена';
 XL.Range['E3','E3'].Font.Bold:=True;
 XL.Range['F3','F3'].Value :='Скидка';
 XL.Range['F3','F3'].Font.Bold:=True;
 XL.Range['G3','G3'].Value :='Всего';
 XL.Range['G3','G3'].Font.Bold:=True;
 XL.Range['H3','H3'].Value :='ФИО клиента';
 XL.Range['H3','H3'].Font.Bold:=True;
 XL.Range['I3','I3'].Value :='Документ';
 XL.Range['I3','I3'].Font.Bold:=True;

 qPrint.First;
 while not qPrint.Eof do
  begin
   i:=1;
   while i<=qPrint.FieldCount do
    begin
     XArr[i] := qPrint.Fields[i-1].Value; //Массив столбцов
     i := i+1;
    end;
   XL.Range['A'+IntToStr(j),
   CHR(64+qPrint.FieldCount)+IntToStr(j)].Value := XArr;
   qPrint.Next;
   j:=j+1;
  end;

 //стиль линии границы
 //XL.Range['A3',CHR(64+qPrint.FieldCount)+IntToStr(j-1)].Borders.LineStyle:=xlThin;
 //ширина линии
 //XL.Range['A3',CHR(64+qPrint.FieldCount)+IntToStr(j-1)].Borders.Weight:=xlHairline;
 //обводим табличку
 //XL.Range['A3',CHR(64+qPrint.FieldCount)+IntToStr(j-1)].BorderAround(xlThin,xlThin,xlAutomatic,xlAutomatic);

 XL.Range['A1',CHR(64+qPrint.FieldCount)+IntToStr(j)].select;
 XL.Selection.Font.Name:='Arial cur';
 XL.Selection.Font.Size:=10;
 XL.Selection.Columns.AutoFit;
 XL.Range['A1','A1'].select;

end;
end;