онтальне - по центру: = true;// об'єднання ячеек.Bold: = 1;// шрифт - стіль.Italic: = 1;// шрифт - стиль [EmptyParam]: = StrKomb;;// пишемо текст
end;. Range ['A1', 'J18']. BorderAround (2,4,1, EmptyParam) ;//рамка - кордон сформованого документа
// Форматуємо лист Excel ------------------------------------- --- ExcelWorksheet1. PageSetup do.PageSetup.PaperSize: = DMPAPER_A4 ;//формат - А4.PageSetup.LeftMargin: = 20;// поле левое.PageSetup.RightMargin: = 20;// поле правое.PageSetup.TopMargin: = 20;// поле верхнее.PageSetup.BottomMargin: = 20;// поле нижнє
end;
Заповнюємо Лист 3, на якому розташовується довідка про те, що людина є абонентом бібліотеки і номері його книг
// Працюємо на аркуші № 3.First;// Вибірка - на першу запісь.MoveBy (NomClient-1);// формуємо документ для обраної записи
ExcelWorksheet1.ConnectTo (ExcelApplication1.Worksheets.Item ['Ліст3'] as _Worksheet);// вибираємо лист № 2 кнігі.Activate ;//активуємо ліст.Visible [Lcid]: = true;//показуємо додаток повністю
// Перша пропозиція "шапки" ----------- 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 ['E6', 'F6'] do: = xlVAlignCenter;// вирівнювання вертикальне - по центру
HorizontalAlignment: = xlHAlignRight;// вирівнювання горизонтальне - по центру: = true;// об'єднання ячеек.Bold: = 1;// шрифт - стіль.Italic: = 1;// шрифт - стиль [EmptyParam]: = 'З П Р А В К А';// пишемо текст
end;: = 'Студент' + Query1.FieldByName ('FAMILYA'). Asstring + '' + Query1.FieldByName ('NAME'). Asstring + '' + Query1.FieldByName ('OTCH . '). Asstring +', проживає за адресою '+ Query1.FieldByName (' ADR '). Asstring;. Cells.Item [10,1]. value: = StrKomb;: =' зарегестрировался '+ Query1.FieldByName (' DATA_REG ). Asstring + 'числа, отримав на руки книгу' + Query1.FieldByName ('NAME_BOOK'). Asstring + '';. Cells.Item [11,1]. va...
