Форум: "Основная";
Текущий архив: 2004.02.17;
Скачать: [xml.tar.bz2];
ВнизКак распечатать таблицу? Найти похожие ветки
← →
][ncognito (2004-01-31 00:12) [0]Подскажите плз как вывести таблицу типа TStringGrid на принтере. Подробно, если не затрудноит.
Заранее FNX
← →
][ncognito (2004-01-31 01:25) [1]Лююююди! Кто знает! Хелп! По зарез нужно!!!
← →
Johnmen (2004-01-31 01:50) [2]метод PaintTo
← →
mukha (2004-01-31 09:53) [3]Давай мыло. Вышлю готовый компонент.
← →
химик (2004-01-31 14:17) [4]2Johnmen -а можно подробнее? я попробовал
var DCPrn: HDC;
begin
if PrintDialog1.Execute then
begin
DCPrn:=GetDC(Printer.Handle);
printer.BeginDoc;
stringgrid1.PaintTo(DCPrn,1,1);
printer.EndDoc;
end;
прогоняет чистый лист (не печатает). что не так?
думаю и автору ветки интересно этол
← →
MBo (2004-01-31 14:37) [5]например, вот это
http://delphibase.endimus.com/?action=viewfunc&topic=vclservice&id=10322
← →
химик (2004-01-31 17:00) [6]2MBo
ну ручками понятно :)
тут paintto упоминался...
← →
][ncognito (2004-02-01 23:23) [7]Всем спасибо, но я уже всё нашёл...
Кому интереснео, вот...
http://www.delphikingdom.ru/tower/c009.htm
http://www.delphikingdom.ru/treasury/printgrid.htm
← →
Johnmen (2004-02-05 16:42) [8]>химик
Примерно так (отличается от приведенных способов...:))
1. создаем битмэп
2. стринггрид.PaintTo в канвас битмэпа
3. Printer.BeginDoc;
в канвас принтера отрисовываем битмэп
Printer.EndDoc;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c