39; NUMBER '). AsString;// Показуємо короткий зміст поточного запису
NomClient: = Query1.RecNo;// фіксуємо номер поточного запису для подальшої роботи
end; 3 формує файли Excel і Word.
Підключаємося до Word і робимо базову настройку листа:
WordApplication1.Connect;
// Завантаження існуючого файлу Word1: = 'C: project1 pr1.doc';// відкрити існуючий документ
WordApplication1.Documents.Open (doc1, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,, EmptyParam, EmptyParam, EmptyParam, EmptyParam, з активним документом
// Набудуємо вихідні параметри документа WordDocument1.PageSetup.Orientation: = 0;// орієнтація сторінки
WordDocument1.PageSetup.PaperSize: = 7;// формат А4
// Поля (2,54 см - 72 точки)
WordDocument1.PageSetup.LeftMargin: = 25;// левое.PageSetup.RightMargin: = 70;// правое.PageSetup.TopMargin: = 70;// верхнее.PageSetup.BottomMargin: = 70; // ніжнее.PageSetup.TextColumns.SetCount (1);// кількість колонок у тексті - 1
Формуємо першу сторінку, на якій розташована таблиця з довідковими даними:
Query1.Active: = true ;//звертаємося до БД.First;// БД - на 1 запис: = Query1.RecordCount +1 ;//задаємо кількість рядків майбутньої таблиці Word за таблицею БД: = Query1.FieldCount;// задаємо кількість стовпців майбутньої таблиці Word за таблицею БД
// Вставляємо таблицю: = WordDocument1.Paragraphs.Last.Range;// задаємо місце розташування в документі - після останнього параграфа
WordDocument1.Paragraphs.Item (WordDocument1.Paragraphs.Count). Alignment: = 1;// виравніваніе.Tables.Add (Range1, ColRows, ColColumns, EmptyParam, EmptyParam) ;//задаємо розміри таблиці . Tables.Item (1). allowAutoFit: = true ;//дозвіл автоналаштування табліци.Tables.Item (1). AutoFitBehavior (2);// автодобір розміру по ширині вікна (1-по вмісту)
// Малюємо межі таблиці по осередках і заповнюємо їх з БД
for i: = 1 to ColRows do// строкіj: = 1 to ColColumns do// столбци.Tables.Item (1). cell (i, j). Range.Font.Color: = clGray;// форматіруем колір шріфта.Tables.Item (1). cell (i, j). Borders.Enable: = 1;// малюємо кордону осередки табліциi
end;. Next;// наступна запис БД
end;
// Заповнюємо рядок заголовків
for j: = 1 to ColColumns doWordDocument1.Tables.Item (1). cell (1, j). Range.Font do// Форматуємо шрифт для назв колонок // Вводимо назви полів БД
// WordDocument1.Tables.Item (1). cell (1, j). Ran...
