печать

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

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

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