En el programa que te comente que estoy haciendo en un informe bajo los margenes asi:
oWord.ActiveDocument.PageSetup.TopMargin := CentimetersToPoints(5);
oWord es un TWordAplication y la funcion es esta
function TFormPRL.CentimetersToPoints(a:Single):Single;
begin
{Converts a measurement from centimeters to points (1 cm = 28.35 points).
Returns the converted measurement as a Single.
Syntax
expression.CentimetersToPoints(Centimeters)
expression Optional. An expression that returns an Application object.
Centimeters Required Single. The centimeter value to be converted to points.}
Result:=28.35*a;
end;
Un saludo
Toni
|