Хех...
Код:
var PixelsX, PixelsY:integer;
PrinterCoordX, PrinterCoordY:integer;
begin
PixelsX:=GetDeviceCaps(printer.Handle, LogPixelsX);
PixelsY:=GetDeviceCaps(printer.Handle, LogPixelsY);
PrinterCoordX:=round(PixelsX/25.4*15);
PrinterCoordY:=round(PixelsY/25.4*11.7);
image2.Canvas.Rectangle(0,0, PrinterCoordX, PrinterCoordY);
{Form1.масшатб: poProportional установлен}
Form1.Print;
end;
Админ: Пользуемся тегами при оформлении кода!
15см на 11.7 см, принтер не печатает прямоугольник с такими размерами. Что я делаю не так?