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

Печать файла.   Найти похожие ветки 

← →
Mishenka   (2003-12-04 22:38) [0]

Печатается содержимое Image.
На моём принтере всё нормально, а на другом компе печатается какая-то фигня в текстовом режиме, а если там печатать ту же картинку из Word"a, то всё нормально.
В чём может быть проблема.
Вот текст печати:

with Printer do
begin
BeginDoc;
K:=Image1.Picture.Width/Image1.Picture.Height;
K1:=PageWidth/Image1.Picture.Width;
K2:=PageHeight/Image1.Picture.Height;
if K1>K2 then RR:=Rect(0,0,Round(PageHeight*K),PageHeight)
else RR:=Rect(0,0,PageWidth,Round(PageWidth/K));
Canvas.StretchDraw(RR,Image1.Picture.Graphic);
EndDoc;
end;

---

← →
Mishenka   (2003-12-06 17:16) [1]

Ну может хоть кто-нибудь знает?

---

← →
Wilsh ©   (2003-12-06 17:39) [2]

Попробуй сделать так:


Printer.BeginDoc;
StretchBlt(Printer.Canvas.Handle,
hOtstup,vOtstup,PrinterWidth,PrinterHeight,
Image1.Picture.Bitmap.Canvas.Handle,
0,0,Image1.Picture.Bitmap.Width,Image1.Picture.Bitmap.Height,
SRCCOPY);
Printer.EndDoc;


где hOtstup - отступ слева, а vOtstup - сверху.

Может поможет - у меня так работает с различными принтерами (и матричными в том числе :)).

---

← →
Mishenka   (2003-12-11 16:00) [3]

А нифига. Всё равно картинка печатается в текстовом режиме :(((

---

← →
Amoeba ©   (2003-12-11 16:20) [4]

А этот принтер хотя бы поддерживает печать в графическом режиме? И вообще, какой принтер используется?

---

← →
Mishenka   (2003-12-11 17:16) [5]

Принтер HP/ Точно щас не вспомню. Но из ворда там всё печатается OK, так что поддерживает.

---

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

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



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