uses 
  ...cxExportPivotGridLink, ExcelXP;

 var 
    procedure  PreparePivotToPrint(sFileName: string ; pg:TcxDBPivotGrid);

 implementation 

 uses  ... ComObj;


 procedure  PreparePivotToPrint(sFileName: string ; pg:TcxDBPivotGrid);
 var 

  vExcel          :OleVariant;
  vCell1, vCell2  :variant;
  vCell1IN        :variant;
  vWorkBook       :Variant;
  vWorkSheet      :Variant;
  vWorkSheetNew   :Variant;
  vRange          :Variant;
  vRangeIN        :Variant;
  I,J,N           :Integer;
  RowFCount       :Integer;
  StrVal          : String ;



  oldColumnTotals               :Boolean;
  oldRowTotals                  :Boolean;
  oldColumnGrandTotals          :Boolean;
  oldRowGrandTotals             :Boolean;
  oldTotalsForSingleValues      :Boolean;
  oldGrandTotalsForSingleValues :Boolean;
  oldColumnFields               :Boolean;
  oldDataFields                 :Boolean;
  oldFilterFields               :Boolean;
  oldFilterSeparator            :Boolean;
  oldRowFields                  :Boolean;


   procedure  OnOff(bColumnTotals,bRowTotals,bColumnGrandTotals,bRowGrandTotals,
                 bTotalsForSingleValues,bGrandTotalsForSingleValues,bColumnFields,
                 bDataFields,bFilterFields,bFilterSeparator,bRowFields:Boolean);
   begin 
     with  pg.OptionsView  do 
     begin 
      ColumnTotals               :=  bColumnTotals;
      RowTotals                  :=  bRowTotals;
      ColumnGrandTotals          :=  bColumnGrandTotals;
      RowGrandTotals             :=  bRowGrandTotals;
      TotalsForSingleValues      :=  bTotalsForSingleValues;
      GrandTotalsForSingleValues :=  bGrandTotalsForSingleValues;
      ColumnFields               :=  bColumnFields;
      DataFields                 :=  bDataFields;
      FilterFields               :=  bFilterFields;
      FilterSeparator            :=  bFilterSeparator;
      RowFields                  :=  bRowFields;
     end ;
   end ;
 begin 
      //save settings before export 
      with  pg.OptionsView  do 
      begin 
       oldColumnTotals               :=ColumnTotals              ;  //1 
       oldRowTotals                  :=RowTotals                 ;  //2 
       oldColumnGrandTotals          :=ColumnGrandTotals         ;  //3 
       oldRowGrandTotals             :=RowGrandTotals            ;  //4 
       oldTotalsForSingleValues      :=TotalsForSingleValues     ;  //5 
       oldGrandTotalsForSingleValues :=GrandTotalsForSingleValues;  //6 
       oldColumnFields               :=ColumnFields              ;  //7 
       oldDataFields                 :=DataFields                ;  //8 
       oldFilterFields               :=FilterFields              ;  //9 
       oldFilterSeparator            :=FilterSeparator           ;  //10 
       oldRowFields                  :=RowFields                 ;  //11 
      end ;

      // Hide filter and columns 
      //OnOff(false,false,false,true,true,true,false,false,false,false,true); 
   OnOff(false,false,false,false,false,false,false,false,false,false,true);

    If   Not  DirectoryExists('c:\Temp')  Then 
          CreateDir('c:\Temp');           //создайм директорию c:/temp 
    try 
   cxExportPivotGridToExcel(sFileName, pg);   //выгружем в Excel во временный файл 
    try     //создаём то что выгружено с грида 
     vExcel := GetActiveOleObject('Excel.Application');
    except 
     vExcel := CreateOleObject('Excel.Application');
    end ;

   vExcel.Workbooks.Open(sFileName);
   vWorkBook := vExcel.ActiveWorkbook;
   vWorkSheet := vWorkbook.WorkSheets['...']; //Имя файла 
   vWorkSheet.Select;
   vWorkSheetNew := vWorkbook.WorkSheets.Add(EmptyParam);
   vWorkSheet.Select;

   RowFCount :=  0 ;

    for  I :=  0   to  pg.FieldCount -  1   do 
      if  pg.Fields.Area = faRow  then 
       RowFCount := RowFCount +  1 ;     [i]//Считам кол-во полей в зоне Row 

    if  pg.ViewData.ColumnCount =  1   then 
     vWorkSheet.Range['A1'].Insert( 3 );    //если кол-во полей в зоне Data =1, добавляем строку 

   vWorkSheet.Select;

   J :=  1 ;  //перебор по колонкам 
   N :=  1 ;  //колонки в новом листе 
    while  j<=RowFCount* 2   do 
    begin 
      for  i:= 5   to   4 +pg.ViewData.RowCount  do   //перебор по строчно 
      begin 
       if  vWorkSheet.Cells[i,j].MergeCells  then   //ищем объединенную ячейку 
       begin 
        vCell1 := vWorkSheet.Cells[i,j];
        vRange := vWorkSheet.Range[vCell1, vCell1];
         if  vRange.MergeArea.Rows.Count <>  1   then   //если объединённых строк больше 1 
         begin 
           if  vWorkSheet.Cells[i,j].Value <> ''  then 
            StrVal := vWorkSheet.Cells[i,j].Value;
          vWorkSheetNew.Cells[i,n].Value := StrVal;
         end 
         else 
          vWorkSheetNew.Cells[i,n].Value := vWorkSheet.Cells[i,j].Value;
       end ;
      end ; //for 
      if  j= 1   then  j:=j+ 3 
       else  J:=J+ 2 ;
     StrVal := '';
     Inc(n);  //увеличиваем колонки для нового листа 
    end ; //while 

   vWorkSheet.Select;

   vCell1 := vWorkSheet.Cells.Item[ 2 , 1 ];      //выбираем диапазон значений из зоны Row 
   vCell2 := vWorkSheet.Cells.Item[ 3 ,RowFCount* 2 + 1 ];

   vRange := vWorkSheet.Range[vCell1, vCell2];
   vRange.Select;
   vRange.Copy;
   vWorkSheetNew.Select;
   vCell1IN := vWorkSheetNew.Cells.Item[ 3 , 1 ];
   vRangeIN := vWorkSheetNew.Range[vCell1IN,vCell1IN];
   vRangeIN.Select;
   vRangeIN.PasteSpecial(Paste:=xlPasteFormulas, Operation:=xlNone,
        SkipBlanks:=False, Transpose:=False);   //вставляем в новый лист 

   I :=  2 ;
    while  I <= RowFCount* 2   do 
    begin 
     vCell1 := vWorkSheetNew.Cells.Item[ 3 ,i];
     vRange := vWorkSheetNew.Range[vCell1,vCell1];     //переносим из В в А 
     vRange.Select;
     vRange.Copy;
     vCell1IN := vWorkSheetNew.Cells.Item[ 3 ,i/ 2 ];
     vRangeIn := vWorkSheetNew.Range[vCell1IN,vCell1IN];
     vRange.Copy(vRangeIn);
     vRange.Clear;
     I := I +  2 ;
    end ;

   vWorkSheet.Select;

   vCell1 := vWorkSheet.Cells.Item[ 3 ,RowFCount* 2 + 2 ];     //выбираем диапазон с данными 
   vCell2 := vWorkSheet.Cells.Item[ 4 +pg.ViewData.RowCount,RowFCount* 2 + 1 +pg.ViewData.ColumnCount];
   vRange := vWorkSheet.Range[vCell1, vCell2];
   vRange.Select;
   vRange.Copy;
   vWorkSheetNew.Select;
   vCell1IN := vWorkSheetNew.Cells.Item[ 3 ,RowFCount+ 1 ];
   vRangeIN := vWorkSheetNew.Range[vCell1IN,vCell1IN];
   vRangeIN.Select;
   vRangeIN.PasteSpecial(Paste:=xlPasteFormulas, Operation:=xlNone,
        SkipBlanks:=False, Transpose:=False);      //переносим его в новый лист 

   vWorkSheetNew.Rows[ 2 ].Delete;
   vRange := vWorkSheetNew.UsedRange;  //заполненные ячейки 
   vRange.Select;  //выделяем заполненные ячейки 
   vRange.Borders.LineStyle := $ 00000001 ;  // Обрамление ячеек 
   vRange.Borders.ColorIndex :=  1 ;   // Обрамление четным цветом 
   vRange.EntireRow.AutoFit; // Ровняем высоту колонок 
   vRange.EntireColumn.AutoFit; //Ровняем ширину колонок 

   vExcel.DisplayAlerts := False;  // отключаем предупреждения 
   vExcel.ActiveWorkBook.SaveAs(sFileName);
   vExcel.DisplayAlerts := True;  // включаем предупреждения 
   vExcel.Visible := True;
   vExcel := Unassigned;

     // Show filter and columns 
   OnOff(oldColumnTotals,oldRowTotals,oldColumnGrandTotals,oldRowGrandTotals,
                 oldTotalsForSingleValues,oldGrandTotalsForSingleValues,oldColumnFields,
                 oldDataFields,oldFilterFields,oldFilterSeparator,oldRowFields);
    except 
   vExcel := Unassigned;

     // Show filter and columns 
    OnOff(oldColumnTotals,oldRowTotals,oldColumnGrandTotals,oldRowGrandTotals,
                 oldTotalsForSingleValues,oldGrandTotalsForSingleValues,oldColumnFields,
                 oldDataFields,oldFilterFields,oldFilterSeparator,oldRowFields);
    end ;
 end ;