Распечатка PaintBox.

← →
Koliaff © (2004-04-28 13:24) [0]

Написал процедурe печати Рисунка из PaintBoxa. Рисунок помещается на два листа, но принтер печатает только первый, а второй не печатает. Помогите плиз разобраться ...
Код процедуры :
procedure TPLAN.N8Click(Sender: TObject);
var
ScaleX, ScaleY: Integer;
R: TRect;
begin
Printer.PrinterIndex:=0;
Printer.Orientation:=poLandscape;
with Printer do
try
BeginDoc;
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, ImG.Width * ScaleX, Img.Height * ScaleY);
Canvas.CopyRect(R,IMG.Canvas,R) // **

finally
EndDoc; // **
end;
end;

← →
Koliaff © (2004-04-28 14:11) [1]

Удалено модератором
Примечание: Создание пустых сообщений

← →
Koliaff © (2004-04-28 14:50) [2]

Удалено модератором
Примечание: Создание пустых сообщений

← →
Тимохов © (2004-04-28 14:56) [3]

> Рисунок помещается на два листа, но принтер печатает только
> первый, а второй не печатает

Он не такой умный.

1. Вы должны сами определить, сколько влезет на первый лист.
2. Скоприовать на принтерный канвас нужную часть.
3. Начать новую страницу
4. На ней допечатать остаток.

Можно также отмасштабировать рисунок под размер листа принтера.

Распечатка PaintBox. Найти похожие ветки