Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Вниз

Неправильно печатается файл :(((   Найти похожие ветки 

← →
Mishenka   (2003-11-15 22:48) [0]

Прога печатает картинку содержащуюся в Image:

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-11-16 15:45) [1]

VМожет сё-таки кто-нибудь знает?

---

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

Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c