Hallo Lill Jens,
Um das ActiveSheet auf Querformat zu setzen:
Delphi-Quellcode:
Excel.ActiveSheet.PageSetup.PrintArea := '';
Excel.ActiveSheet.PageSetup.Orientation := xlLandscape; // Active Sheet Querformat
Um das ActiveSheet auf Hochformat zu setzen:
Delphi-Quellcode:
Excel.ActiveSheet.PageSetup.PrintArea := '';
Excel.ActiveSheet.PageSetup.Orientation := xlPortrait; // Active Sheet Hochformat
Bis bald Chemiker