//-------------------------------------------------------
${ЗОНА(8. Настройки Excel)
&CntRowList(N,2,0)=15; // количество строк на листе 
&CntRowBoot(N,2,0)=0;  // количество строк под подножие 
$}ЗОНА(8. Настройки Excel)
#Excel(N,2,0)=ДВЕ_КНОПКИ(15,9,65,15,Формат печати,Обычный,через Excel);
$ЕСЛИ(_EQ(Excel-27))
  $BEG_SCRIPT
    var CurFile=CreateObject("CurPrnFile");
    CurFile.SetFlagBrowse(0);
  $END_SCRIPT
  $ВЫХОД
$КОНЕЦ_ЕСЛИ
$ЕСЛИ (Excel)
  $BEG_SCRIPT
     var array_param[3];
     array_param[0]=3; //количество параметров
     array_param[1]=CntRowList;
     array_param[2]=CntRowBoot;

     UnloadScriptModule("bank\\tkb_otk"); 
     LoadScriptModule("bank\\tkb_otk"); 
     PrintTKB_otk(array_param); 
     UnloadScriptModule("bank\\tkb_otk"); 
  $END_SCRIPT
  $ВЫХОД
$ИНАЧЕ
$КОНЕЦ_ЕСЛИ
/////////////////////////////////////////////////////////
#ЧЗАП(N,5,0)=ЧИСЛО_ЗАПИСЕЙ(0);        // Число рабочих записей в таблице
$ЕСЛИ(_EQ(ЧЗАП))
  $ВЫХОД
$КОНЕЦ_ЕСЛИ
${ЗОНА(5. Разделитель строк списка)
  $УСТАН(ЧИСЛО_РАЗД_СТР,0);  // 0 (1,...) - количество пропусков строк
  $УСТАН(РАЗД_СТР,"-");      // символ для отчерков: "-" (или др.символ)
$}ЗОНА(5. Разделитель строк списка)
${ЗОНА(6. Разделитель столбцов списка)
  $УСТАН(ЧИСЛО_РАЗД_СТЛ,1); // 1,2,...-число символов для разделения колонок
  $УСТАН(РАЗД_СТЛ,"|");     // символы-разделители колонок (| или || и т.п.)
$}ЗОНА(6. Разделитель столбцов списка)
${ЗОНА(7. Признак печати нуля)
  $УСТАН(НУЛЬ_СУММ," "); // " " (пробел) - не печатать нули, "0" - печатать
$}ЗОНА(7. Признак печати нуля)
${ЗОНА(1. Заголовок списка)
// Вводите под этим комментарием необходимый текст ЗАГОЛОВКА списка
                                                 В  ТрансКредитБанк


   Просим Вас в рамках договора на обслуживание организации по выплате заработной платы и других
социальных выплат выпустить карты VISA Electron следующим сотрудникам:

$}ЗОНА(1. Заголовок списка)
//${ЗОНА(Начальные суммы)
  #КОДВ=ПЕЧ_ТАБЛ(НАЧ_СУМ);     // Печать начальных сумм
//$}ЗОНА(Начальные суммы)
&ЗАП(N,5,0)=0;
&ЛИСТ(N,5,0)=1;                                 // Счетчик страниц
#РАЗЛ(N,3,0)=РАЗМ_ЛИСТА();                      // Размер страницы
//${ЗОНА(Шапка табицы)
  #КОДВ=ПЕЧ_ТАБЛ(ЛИНИЯ,ЗАГОЛОВОК,ЛИНИЯ)             // Печать заголовка
  #КОДВ=ПЕЧ_ТАБЛ(СБРОС_СУММ_ЛИСТА);                 // Сброс сумм по листу
//$}ЗОНА(Шапка табицы)
$ПОВТОРЯТЬ                                             // Цикл  по записям таблицы
  //${ЗОНА(Строка ведомости)
    #КОДВ=ПРИЗН_УЧАСТ(ЗАП);                         // Признак печати записи
    $ЕСЛИ(КОДВ)
      #КОДВ=ПЕЧ_ТАБЛ(РАЗДЕЛИТЕЛЬ_СТРОК,СТРОКА,ЗАП)  // Печать одной строки таблицы
    $КОНЕЦ_ЕСЛИ
  //$}ЗОНА(Строка ведомости)
  &ЗАП=ЗАП+1;
  #СЧСТР(N,5,0)=СЧЕТЧИК_СТРОК();                 // Счетчик строк на листе
  $ЕСЛИ(_GE(СЧСТР+6-РАЗЛ)+_EQ(ЗАП-ЧЗАП))
    //${ЗОНА(Итог листа)
        #КОДВ=ПЕЧ_ТАБЛ(ЛИНИЯ);
    //  #КОДВ=ПЕЧ_ТАБЛ(СБРОС_СУММ_ЛИСТА);            // Сброс итога по листу.
    //$}ЗОНА(Итог листа)
    ${ЗОНА(3. Подножие листа)
// Вводите под этим комментарием необходимый текст для подножия листа
    $}ЗОНА(3. Подножие листа)
    $ЕСЛИ(_LT(ЗАП-ЧЗАП))
      $ПЕРЕВОД_ЛИСТА
      ${ЗОНА(2. Заголовок листа)
// Вводите под этим комментарием необходимый текст заголовка листа
      $}ЗОНА(2. Заголовок листа)
      //${ЗОНА(Шапка табицы). НАЧАЛО ЗАГОЛОВКА ЛИСТА.
        #КОДВ=ПЕЧ_ТАБЛ(ЛИНИЯ,ЗАГОЛОВОК,ЛИНИЯ)             // Печать заголовка
        #КОДВ=ПЕЧ_ТАБЛ(СБРОС_СУММ_ЛИСТА);                 // Сброс сумм
      //$}ЗОНА(Шапка табицы). КОНЕЦ ЗАГОЛОВКА ЛИСТА.
    $КОНЕЦ_ЕСЛИ
  $КОНЕЦ_ЕСЛИ
$ПОКА(_GT(ЧЗАП-ЗАП))
//${ЗОНА(Итог ведомости)
//  #КОДВ=ПЕЧ_ТАБЛ(ИТОГ_ВЕДОМОСТИ)
//$}ЗОНА(Итог ведомости)
${ЗОНА(4. Подножие списка)
// Вводите под этим комментарием необходимый текст для подножия списка
#ДАТАЗАП(C,20,0)=ДАТЫ(61); 
 
Руководитель ________________________________________      @РУКП
                   (подпись)                              (Ф.И.О.)

Главный бухгалтер____________________________________      @ГЛБУХ
                   (подпись)                              (Ф.И.О.)

@ДАТАЗАП            г.


                                                          МП
$}ЗОНА(4. Подножие списка)
$LF