Распечатать содержимое Gridа

← →
Pk (2003-04-16 17:15) [0]

Использую следуюций код:
printer.BeginDoc; Printer.canvas.Assign(DBGrid1.Canvas); Printer.EndDoc;
При этом на принтер посылается задание при выполнении 1 строчки. А вот строчка Printer.canvas.Assign(DBGrid1.Canvas); вызывает исключение(TControlCanvas не может быть скопирован в TPrinterCanvas ). каким образом можно скопировать содержимое DBGrid1.Canvas в Printer.canvas?

← →
Babay © (2003-04-17 09:18) [1]

вот так у мня сработало...

Var r:TRect;
begin
// размеры в пикселях что бы на листе было все ок их
//надо пересчитывать но это уже другой вопрос
r.Left:=10;r.Top:=10;r.Right:=500;r.Bottom:=300;

printer.BeginDoc;
Printer.canvas.CopyRect(r, DBGrid1.Canvas,dbGrid1.Canvas.ClipRect);
Printer.EndDoc;

← →
REA © (2003-04-17 10:43) [2]

PaintTo еще часто бывает полезно в таких случаях

← →
Pk (2003-04-17 11:33) [3]

PaintTo распечатывает Grid в виде маленького квадратика который только под микроскопом можно рассмотреть. как можно указать разрешение?

Как вариант SetMapMode, SetViewportExtEx
Наверно и проще как-то можно.

Можно содрать еще процедуру печати формы TCustomForm.Print;
Вместо FormImage := GetFormImage; вставить получение Bitmap через PaintTo. Жалко Draw нормально не печатает.

Распечатать содержимое Gridа Найти похожие ветки