Модуль для печати таблиц TStringGrid

Раздел Сокровищница

Как-то потребовалось напечатать таблицу StringGrid. Написал простенький алгоритм.
Может кому-то будет полезен.

Добавляем к своему проекту модуль PrnGridUnit.
Вызываем процедуру PrintGrid.
Наслаждаемся.

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

Из модуля PrintGrid:

//процедура печати StringGrid Var //отступы (поля) сверху и слева страницы LeftMarg,TopMarg:Integer; //переменная для хранения значения отступа сверху от страницы для текущей //строки (в пикселях) CurrLine, //переменная для хранения значения отступа слева от страницы длч положения левой //границы текущей ячейки (в пикселях) LeftBorder, //тоже для правой границы текущей ячейки RightBorder, //переменная для хранения значения отступа сверху от страницы для положения верхней //границы текущей ячейки (в пикселях) TopBorder, //тоже для нижней границы текущей ячейки BottomBorder, //текущая строка таблицы Row, //текущий столбец таблицы Col:Integer; //отступ текста от левой границы ячеки LeftOffset:Integer; //счетчик страниц PageCount:Integer; //флаг конца страницы PageEnded:Boolean; //позиция для печати номеров страниц PageCountPrnPos:Integer; //диалог принтера PrintDialog:TPrintDialog;

Другие небольшие статьи, примеры и программы можете найти на

Скачать пример (35K)

Смотрите так же:

Содержание раздела