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

И снова о масштабах (пиксел*мм) при печати из Image   Найти похожие ветки 

← →
Serg2002   (2002-06-06 08:47) [0]

Мастера! И не только!
Где-то уже было, но не все понятно. Нужно - распечатать картинку из Имаге, чтобы она была нормальных размеров и качества. Делал так:
procedure TForm1.Button1Click(Sender: TObject);
var
ScaleX, ScaleY:Integer;
R:TRect;
begin
with Printer do
begin
BeginDoc;
try
ScaleX:=GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY:=GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R:=Rect(0, 0, Width*ScaleX, Height*ScaleY);
Canvas.StretchDraw(R, Image1.Picture.Bitmap);
finally;
EndDoc;
end;
end;

end;

end.
Итог: чтобы узнать кнопку Пуск, пришлось повесить лист на стену и выйти в коридор :))) (точки вышли разером по 5мм).
Вопросы: Что я сделал не так? Указажите (тыкнете носом) на ошибки. И ессно комментарии. На понятном языке:))
Заранее благодарен.
з.ы. если поможет, принтер НР ДиДжей 400

---

← →
Song ©   (2002-06-06 08:55) [1]

А Width и Height-то у Вас какие берутся ? Правильно, формы :))))
...
R:=Rect(0, 0, Image1.Width*ScaleX, Image1.Height..*ScaleY);
...
Кстати, код в конфенренцию давал я. Там было всё правильно.

---

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

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



Память: 0.45 MB
Время: -0.99 c