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

[Lill Jens]

Zitat:

Zitat von Reinhardtinho

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

MFG
Lorenz

Ahh bin ich doof...naja bin halt nur a FiSi ;)^^

So damit bist du wieder ein Held ;)

Danke

[Reinhardtinho]

Sehr schön ... bin ja auch nen FiAe :mrgreen:

[Stecky2000]

Hallo,

ich häng mich mal hier dran....


Hab seit längerem Excel von Delphi aus mit Daten gefüttert, gespeichert etc., klappt alles wunderbar.
Doch dies hier eben nicht :(

Delphi-Quellcode:

Excel.ActiveSheet.PageSetup.Orientation := xlLandscape;

Hier sagt er mir: "undefinierter Bezeichner: 'xlLandscape'"

Woran kann das hängen? Muss man ggf. noch was einbinden?

[omata]

Binde mal die Excel2000-Unit ein...

Delphi-Quellcode:

uses Excel2000;

[Stecky2000]

Danke für die schnelle Antwort,...

Excel2000 hab ich jetzt drin, frisst er auch, aber weiterhin die gleiche Fehlermeldung :(

Edit: sorry, noch mal alles zurück....


Danke, das war es, ich Depp hatte es aus versehen in eine falsche unit eingebunden, dann gings natürlich nicht.
Jetzt hab ich es ein der richtigen und es läuft...


Nochmal Danke für die schnelle Hilfe.