Печать файла.

← →
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]

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

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

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

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

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