Вывод на принтер картинки, хранящейся в TList

← →
_ZeKa (2005-02-01 18:30) [0]

Всем привет!

Столкнулся с такой проблемой. Вывожу на печать катинку хранящуюся в TList
Printer.Canvas.Draw(0, 0, TBitmap(Lists.Items[0]));
Результат - пустой лист. Использую Paintbox
pbPreview.Canvas.Draw(0, 0, TBitmap(Lists.Items[0]));
Рисуется нормально. В чем ошибка????

← →
Семен Сорокин © (2005-02-01 18:44) [1]

Printer.BeginDoc;
Printer.Canvas.Draw(0, 0, TBitmap(Lists.Items[0]));
Printer.EndDoc;

← →
_ZeKa (2005-02-01 18:47) [2]

Именно так я и делаю. Это я для краткости

← →
_ZeKa (2005-02-01 18:50) [3]

Привожу полный код

procedure TfPreview.pbPreviewPaint(Sender: TObject); begin pbPreview.Canvas.Draw(0, 0, TBitmap(fPrint.Lists.Items[0])); end; procedure TfPrint.bbtnOKClick(Sender: TObject); Var i: Integer; begin Printer.BeginDoc; For i := 0 to Lists.Count - 1 do begin Printer.Canvas.Draw(0, 0, TBitmap(Lists.Items[i])); if i <> (Lists.Count - 1) then Printer.NewPage; end; Printer.EndDoc; end;

← →
Семен Сорокин © (2005-02-02 10:16) [4]

принтер цветной? пытаешься распечатать цветную картинку?
попробуй перед Draw задать у битмапа PixelFormat := pf16Bit;
У меня была трабла, отсылал цветную картинку на HP Laser Jet 1200 - тоже пустой лист был, поигрался с PixelFormat - решил проблему.

← →
_ZeKa (2005-02-02 12:27) [5]

ПЕЧАТАЕТ!!!

СПАСИБО! Сам бы никогда не допер...

← →
REA (2005-02-02 12:29) [6]

Draw работает очень плохо и не на всех принтерах.
Рекомендую использовать функцию по методу, реализованному в печати TForm.

← →
_ZeKa (2005-02-02 12:49) [7]

А если StretchDraw(...)?

← →
REA (2005-02-02 14:45) [8]

Там StretchDiBits использовано, если не ошибаюсь.

Вывод на принтер картинки, хранящейся в TList Найти похожие ветки