Не могу напечатать Bitmap на Printer.Canvas ...

← →
Prok12 (2002-09-27 13:34) [0]

Видимо, к концу недели дошёл до маразма...
Делаю следующее.

TempBitmap := TBitmap.Create;
With TempBitmap do begin
PixelFormat := pf16bit;
Width := 1200; Height := 800;
end;
RenderToBitmap(TempBitmap); { Здесь рисуется то что мне надо - проверял путём сохранения TempBitmap в файл }

Printer.BeginDoc;
Printer.Canvas.StretchDraw(
Rect(0,0,Printer.PageWidth,Printer.PageHeight),
TempBitmap);
Printer.EndDoc;
TempBitmap.Free;

В итоге получаю практически пустой лист, где едва-едва просвечивает (в нужном месте) прямоугольник с картинокой... Принтеры - LaserJet 1200 и 2200.

Нет ли у кого примерчика печати 16bitColor-Bitmap?

← →
Song © (2002-09-27 13:40) [1]

Надо масштабировать (GetDeviceCaps+PixelsPerInch)

← →
Хоу-юнь (2002-09-27 14:01) [2]

Не печатайте Canvas на принтер! Это отстой.
Работайте через WinAPI. По крайней мере, предсказуем результат печати; не будет проблем с масштабированием.

← →
Prok12 (2002-09-27 14:31) [3]

Можно и через API.
А примерчика нету?
Там ведь код тоже не очень длинный быдет...

Не могу напечатать Bitmap на Printer.Canvas ... Найти похожие ветки