Вывод на печать текст из PaintBox

← →
Uno-84 (2008-11-12 10:46) [0]

Здравствуйте! подскажите пожалуйста как вывести на печать текст из PaintBox

if MesPDlg.Execute then
begin
with printer do
Try
begindoc;
ScaleX := GetDeviceCaps(Handle, LogPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, LogPixelsY) div PixelsPerInch;
R := Rect(0, 0, PreviewPaintbox.Width * ScaleX, Paintbox.Height *ScaleY);
......................................
....................................
finally
EndDoc;
end;

← →
Правильный$Вася (2008-11-12 10:57) [1]

> как вывести на печать текст из PaintBox

только текст?

← →
Правильный$Вася (2008-11-12 10:58) [2]

а вообще не мучайся, получи DeviceContext принтера и вызови OnPaint от бокса с DC принтера

← →
Uno-84 (2008-11-12 11:00) [3]

Даю в принципе в этом компоненте больше ничего кроме текста и не содержеться

В PaintBox даже текст не только не содержится, но и не может содержаться. Он всего лишь предоставляет Canvas для отрисовки чего угодно в событии OnPaint.

← →
Kesha (2008-11-12 12:02) [5]

Не знаю как текст будешь печатать из PaintBoxа а вот как печатать можешь тут почитать http://www.codenet.ru/cat/Languages/Delphi/Printing-and-reporting/

Вывод на печать текст из PaintBox Найти похожие ветки