Скачать: CL | DM;

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

← →
][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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c