Excel Seitenformat

[Lill Jens]

Moin Moin Ihr ;)

Gestern konnte ich ihr schon die lösung für mein problem finden hier
dadurch hat sich allerdings eine neues ergeben.

Meine Spalten passen nicht auf die Seite wenn Sie normal gedruckt wird. Deswegen -> Seitenformat := quer!

Gibts dafür eine möglichkeit? der quelltext steht in meinem anderen thread!

thx.4.cmts


Lill Jens :coder2:

[Lill Jens]

Kann mir keiner helfen?

[Reinhardtinho]

Hallo Lill Jens,

da will ich mal wieder ein Held sein :mrgreen:

Delphi-Quellcode:

Excel.PageSetup.Orientation := 2;        //Excelsheet Querformat

MFG
Lorenz

[Lill Jens]

Zitat:

Zitat von Reinhardtinho

Hallo Lill Jens,

da will ich mal wieder ein Held sein :mrgreen:

Delphi-Quellcode:

Excel.PageSetup.Orientation := 2;        //Excelsheet Querformat

MFG
Lorenz

Noch bist nicht ganz ein Held ;) bekomm folgende fehler meldung :

Delphi-Quellcode:

[Fehler] Unit1.pas(159): Undefinierter Bezeichner: 'PageSetup'

Was fehlt ?!

[Chemiker]

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

[Reinhardtinho]

Zitat:

Zitat von Lill Jens

Noch bist nicht ganz ein Held ;) bekomm folgende fehler meldung :

Delphi-Quellcode:

[Fehler] Unit1.pas(159): Undefinierter Bezeichner: 'PageSetup'

Was fehlt ?!

Sorry, hab mich verlesen, was deine Variable "Excel" in dem anderen Thread anging.

MFG
Lorenz

[Lill Jens]

Zitat:

Zitat von Chemiker

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

Allerdings bekomm ich wieder die gleich Fehlermeldung...

[Reinhardtinho]

Also ich arbeite auch grade mit Excel und habe da noch folgende Einstellungen gemacht:

Ich habe eine Worksheet, mit dem ich ständig arbeite, also auch die Zellen formatiere und sowas. :P

Delphi-Quellcode:

var
  WS : _WorkSheet;
  ...
begin
  WS := ExcelApplication1.ActiveSheet as _Worksheet;
  
  WS.PageSetup.Orientation := 2;        //Excelsheet Querformat
  ...
end;

Funktioniert bei mir wunderbar. :balloon:


MFG
Lorenz

[Lill Jens]

Zitat:

Zitat von Reinhardtinho

Funktioniert bei mir wunderbar. :balloon:


MFG
Lorenz

Bei mir leider nicht -.-

hier

[Reinhardtinho]

Naja, bei dir heißt die Variable halt Excel und nicht ExcelApplication1.

MFG
Lorenz