;// стиль
// Розмічаємо межі таблиці
// Зовнішня межа - товщі
// Вертикальна межа
// Колір ліній - базовий червоний
// Горизонтальна
Заповнюємо Лист 2 на якому розташовується напрямок на видачу:. First;// Вибірка - на першу запісь.MoveBy (NomClient-1);// формуємо документ для обраної записи
ExcelWorksheet1.ConnectTo (ExcelApplication1.Worksheets.Item ['Лист2'] as _Worksheet);
ExcelWorksheet1.Activate ;//активуємо лист
// Вводимо текст документа ------------------------------------- ---------------
// Перша пропозиція "шапки" ----------- ExcelWorksheet1. Range ['G1', 'J1'] do: = xlVAlignCenter;// вирівнювання вертикальне - по центру
HorizontalAlignment: = xlHAlignRight;// вирівнювання горизонтальне - по центру: = true;// об'єднання осередків [EmptyParam]: = 'Для внутрішнього користування';// пишемо текст
end;
// Друга пропозиція "шапки" ----------- ExcelWorksheet1. Range ['G2', 'J2'] do: = xlVAlignCenter;// вирівнювання вертикальне - по центру
HorizontalAlignment: = xlHAlignRight;// вирівнювання горизонтальне - по центру: = true;// об'єднання осередків [EmptyParam]: = 'за місцем вимоги';// пишемо текст
end;
// Друкуємо текст - Accounts --- ExcelWorksheet1. Range ['D6', 'G6'] do: = xlVAlignCenter;// вирівнювання вертикальне - по центру
HorizontalAlignment: = xlHAlignRight;// вирівнювання горизонтальне - по центру: = true;// об'єднання ячеек.Bold: = 1;// шрифт - стіль.Italic: = 1;// шрифт - стиль [EmptyParam]: = 'НАПРЯМОК НА ВИДАЧУ';// пишемо текст
end;: = 'Абонент' + Query1.FieldByName ('FAMILYA'). Asstring + '' + Query1.FieldByName ('NAME'). Asstring + '' + Query1.FieldByName ('OTCH . '). Asstring +';. Cells.Item [10,1]. value: = StrKomb;: = 'Зареєстрований' + Query1.FieldByName ('DATA_REG ). Asstring +' числа, видати слід книгу '+ Query1.FieldByName (' GROUP '). Asstring +' ';. Cells.Item [13,1]. value: = StrKomb;: =' Адміністратор залу ________________ '; ExcelWorksheet1.Range [' E17 ', 'J17'] do: = xlVAlignCenter;// вирівнювання вертикальне - по центру
HorizontalAlignment: = xlHAlignRight;// вирівнювання гориз...
