Morgen
,
ich versuche gerade über Delphi die Seitenränder für einen Excelexport zu setzten. Die Makroaufzeichnung sagt;
Code:
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.78740157480315)
.BottomMargin = Application.InchesToPoints(0.78740157480315)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
Nun brauch ich jedoch eine Funktion um die cm oder Inches (ist mir eig egal, lässt sich ja schnell umrechnen) der jeweiligen Margin zuzuweisen.
Oder gibt es eine andere Möglichkeit einen Wert in Points umzuwandeln?