Скачать: CL | DM;

Вывод на принтер картинки, хранящейся в 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 использовано, если не ошибаюсь.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.972 c