• Новости
  • Темы
    • Экономика
    • Здоровье
    • Авто
    • Наука и техника
    • Недвижимость
    • Туризм
    • Спорт
    • Кино
    • Музыка
    • Стиль
  • Спецпроекты
  • Телевидение
  • Знания
    • Энциклопедия
    • Библия
    • Коран
    • История
    • Книги
    • Наука
    • Детям
    • КМ школа
    • Школьный клуб
    • Рефераты
    • Праздники
    • Гороскопы
    • Рецепты
  • Сервисы
    • Погода
    • Курсы валют
    • ТВ-программа
    • Перевод единиц
    • Таблица Менделеева
    • Разница во времени
Ограничение по возрасту 12
KM.RU
Рефераты
Главная → Рефераты → Информатика, программирование
  • Новости
  • В России
  • В мире
  • Экономика
  • Наука и техника
  • Недвижимость
  • Авто
  • Туризм
  • Здоровье
  • Спорт
  • Музыка
  • Кино
  • Стиль
  • Телевидение
  • Спецпроекты
  • Книги
  • Telegram-канал

Поиск по рефератам и авторским статьям

Работа с EXCEL: приёмы оформления документа (отчёта)

В uses добавить ComObj

var

Form1: TForm1;

XL : variant; // Переменная в которой создаётся обьект EXCEL

Создание документа

// Обьект EXCEL

XL := CreateOleObject('Excel.Application');

// Чтоб не задавал вопрос о сохранении документа

XL.DisplayAlerts := false;

// новый документ

XL.WorkBooks.Add;

// или загружаем его

XL.WorkBooks.Open(MyDir + '\akt.xls');

{ MyDir - глобальная переменная типа string в неё помещаем путь

к каталогу запуска нашей програмы по событию FormCreate

procedure TForm1.FormCreate(Sender: TObject);

begin

GetDir(0,MyDir);

end;

я всегда так делаю, чтобы программу можно было в любой каталог

поместить вместе со своими дополнительными файлами, в этом случае путь

будет выбираться всегда правильно

}

// Делаем его видимым

XL.Visible := true;

// Когда прога уже оттестирована лучше это делать в конце, быстрей работает,

// а пока нет лучше в начале

// Левое и правое поля отступа для печати

XL.WorkBooks[1].WorkSheets[1].PageSetup.LeftMargin := 30;

XL.WorkBooks[1].WorkSheets[1].PageSetup.RightMargin := 10;

// Даём название страничке

XL.WorkBooks[1].WorkSheets[1].Name := 'Прайс лист';

// Строка появляется на каждом листе при печати

XL.WorkBooks[1].WorkSheets[1].PageSetup.PrintTitleRows := '$3:$3';

XL.WorkBooks[1].WorkSheets[1].PageSetup.PrintTitleColumns := '$A:$A';

// формат числа

for i := 4 to 13 do

XL.WorkBooks[1].WorkSheets[1].Columns[i].NumberFormat := '0,00';

XL.WorkBooks[1].WorkSheets[1].Columns[4].NumberFormat := '0';

// Таким способом можно задавать ширину колонки

XL.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth := 4.5;

XL.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth := 50;

for i := 3 to 13 do

XL.WorkBooks[1].WorkSheets[1].Columns[i].ColumnWidth := 8;

// Шрифт жирный

XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Bold := True;

XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Color := clBlack;

XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Size := 16;

XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Name := 'Times New Roman';

XL.WorkBooks[1].WorkSheets[1].Cells[1,4] := 'Прайс лист';

// Выравнивам по центру по вертикали

XL.WorkBooks[1].WorkSheets[1].Rows[1].VerticalAlignment := 2;

// Выравнивам по центру по горизонтали

XL.WorkBooks[1].WorkSheets[1].Rows[1].HorizontalAlignment := 3;

// Обьединяем ячейки

XL.WorkBooks[1].WorkSheets[1].Range['A1:D1'].Merge;

// Выравнивам по центру по вертикали

XL.WorkBooks[1].WorkSheets[1].Rows[3].VerticalAlignment := 2;

// Выравнивам по центру по горизонтали

XL.WorkBooks[1].WorkSheets[1].Rows[3].HorizontalAlignment := 3;

// Выравнивам по левому краю

XL.WorkBooks[1].WorkSheets[1].Cells[3,2].HorizontalAlignment := 2;

XL.WorkBooks[1].WorkSheets[1].Cells[3,3].HorizontalAlignment := 2;

// Выравнивам по правому краю

XL.WorkBooks[1].WorkSheets[1].Cells[3,4].HorizontalAlignment := 4;

XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Color := clBlack;

XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Name := 'Times New Roman';

XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Size := 12;

XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Bold := True;

XL.WorkBooks[1].WorkSheets[1].Cells[3,1] := '№';

XL.WorkBooks[1].WorkSheets[1].Cells[3,2] := 'Наименование продукции';

XL.WorkBooks[1].WorkSheets[1].Cells[3,3] := 'Ед. изм.';

// обрисовка диапазона ячеек только снизу

// Borders[1] .... [4] - это края ячейки ColorIndex -4142 - пустой цвет i и n - переменные

XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders.LineStyle := 1;

XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders.Weight := 2;

XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders[4].ColorIndex := 1;

XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders[1].ColorIndex := -4142;

XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders[2].ColorIndex := -4142;

XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders[3].ColorIndex := -4142;

// обрисовка диапазона ячеек

XL.WorkBooks[1].WorkSheets[1].Range['A3:' + chr(ord('C')+n) + IntToStr(i)].Borders.LineStyle := 1;

XL.WorkBooks[1].WorkSheets[1].Range['A3:' + chr(ord('C')+n) + IntToStr(i)].Borders.Weight := 2;

XL.WorkBooks[1].WorkSheets[1].Range['A3:' + chr(ord('C')+n) + IntToStr(i)].Borders.ColorIndex := 1;

// присвоение ячейке значения

XL.WorkBooks[1].WorkSheets[1].Cells[i,j] := 'К-во';

// Поворачивать слова, писать вертикально, под углом и т.д.

XL.WorkBooks[1].WorkSheets[1].Rows[2].Orientation := 90;

XL.WorkBooks[1].WorkSheets[1].Range['A2:B2'].Orientation := 0;

Список литературы

Для подготовки данной работы были использованы материалы с сайта http://vlad2000.h1.ru/

Дата добавления: 08.12.2004

База рефератов на портале KM.RU существует с 1999 года. Она пополнялась не только готовыми рефератами, докладами, курсовыми, но и авторскими публикациями, чтобы учащиеся могли использовать их и цитировать при самостоятельном написании работ.


Это популяризирует авторские исследования и научные изыскания, что и является целью работы истинного ученого или публициста. Таким образом, наша база - электронная библиотека, созданная в помощь студентам и школьникам.


Уважаемые авторы! Если Вы все же возражаете против размещения Вашей публикации или хотите внести коррективы, напишите нам на почту info@corp.km.ru, мы незамедлительно выполним Вашу просьбу или требование.


официальный сайт © ООО «КМ онлайн», 1999-2025 О проекте ·Все проекты ·Выходные данные ·Контакты ·Реклама
]]>
]]>
Сетевое издание KM.RU. Свидетельство о регистрации Эл № ФС 77 – 41842.
Мнения авторов опубликованных материалов могут не совпадать с позицией редакции.

Мультипортал KM.RU: актуальные новости, авторские материалы, блоги и комментарии, фото- и видеорепортажи, почта, энциклопедии, погода, доллар, евро, рефераты, телепрограмма, развлечения.

Карта сайта


Подписывайтесь на наш Telegram-канал и будьте в курсе последних событий.


Организации, запрещенные на территории Российской Федерации
Telegram Logo

Используя наш cайт, Вы даете согласие на обработку файлов cookie. Если Вы не хотите, чтобы Ваши данные обрабатывались, необходимо установить специальные настройки в браузере или покинуть сайт.