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

печать   Найти похожие ветки 

← →
Senator   (2004-05-24 11:57) [0]

Подскажите пожалста.
Использую FastReport как мне распечатать картинку, так что бы ее размеры не зависели от принтера. Т.е. что бы можно было задать размеры ее в мм и такие же получить на бумаге?
Нашел в FAQ такой ответ:
Procedure TForm1.GetPrinterInfo; { Получить информацию о принтере }
begin
 PixelsX:=GetDeviceCaps(printer.Handle,LogPixelsX);
 PixelsY:=GetDeviceCaps(printer.Handle,LogPixelsY);
end;
Function TForm1.PrinterCoordX(x:integer):integer; { переводит координаты из мм в пиксели }
begin
PrinterCoordX:=round(PixelsX/25.4*x);
end;
Function TForm1.PrinterCoordY(Y:integer):integer; { переводит координаты из мм в пиксели }
begin
PrinterCoordY:=round(PixelsY/25.4*Y);
end;

Но как это привязать к FastReport не знаю. Если печатать через Tprinter, тогда появляеться проблема с Preview....

---

← →
Senator   (2004-05-24 14:28) [1]

Никто не знает? :-) или игнорируют ?

---

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

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



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