Как распечатать таблицу?

← →
][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

>химик

Примерно так (отличается от приведенных способов...:))

1. создаем битмэп
2. стринггрид.PaintTo в канвас битмэпа
3. Printer.BeginDoc;
в канвас принтера отрисовываем битмэп
Printer.EndDoc;

Как распечатать таблицу? Найти похожие ветки