aus Delphi heraus Excel Einstellung verändern?

[AndreT]

Hallo,

ich erzeuge über

Delphi-Quellcode:

SaveDialog1.FileName:='upload_statistik'+FormatDateTime('_yyyymmdd', Date)+'.xls';
SaveDialog1.Filter:='xls';
SaveDialog1.Execute;
dateiname:=SaveDialog1.FileName;
ExportGrid4ToExcel(dateiname,cxGrid_statistik);
ShellExecute(Application.Handle, 'open' ,PChar(dateiname), nil, PChar('c:\test'), sw_ShowNormal);

eine Excel-Datei aus einem cxGrid (Quantum dbGrid von Developer Express).

Ist es möglich Excel zu sagen, das das ganze auf DIN A4 querformat soll und breitenmäßig auf eine Seite passen soll?
Kann man das Format von eine Spalten (zB Zahl -> Text) verändern / übergeben?

Gruss Andre

[Kompon Ente]

Mir fällt da gerade was ein: Könnte man mit Delphi programmieren, dass man Exceltabellen beidseitig bedrucken kann?

[Luckie]

@Kompon Ente: Was hat deine Frage mit dem Problem von AndreT zu tun? Nichts. Erstell bitte für eine neue Frage auch einen neuen Thread.

[Kompon Ente]

Beide sind vom gleichen Thema und passen in dieselbe Kategorie ;)

[shmia]

Zitat:

Zitat von AndreT

Ist es möglich Excel zu sagen, das das ganze auf DIN A4 querformat soll und breitenmäßig auf eine Seite passen soll?
Kann man das Format von eine Spalten (zB Zahl -> Text) verändern / übergeben?

Ja, aber nur über Automatisierung.
Dazu muss man über das Objekt WorkSheet auf PageSetup zugreifen und das Papierformat & co einstellen.
Für den Seitenumbruch gibt es die Objekte VPageBreaks und HPageBreaks.
Wer jetzt nur Bahnhof versteht, muss erstmal lernen, was Automatisierung ist und wie die Objekthierarchie in
Officeprodukten (Word, Excel, Powerpoint, ...) aufgebaut ist.
http://www.djpate.freeserve.co.uk/AutoExcl.htm

Es könnte noch eine 2. Möglichkeit geben:
Man kann innerhalb von Excel durch ein Autostartmakro die nötigen Einstellungen für die Druckausgabe treffen.

[AndreT]

Danke,

das hat mir schon ne ganze Menge weitergeholfen.

[AndreT]

doch noch eins

das andere hat gut geklappt, aber wie änder ich das Format einer Zelle / Spalte? Da hängt es bei mir noch.

WS:= Excel.ActiveSheet as _Worksheet;
Excel.ActiveCell. ....und dann?

[WIng2005]

@ shmia: ich kann kein Pagesetup unter Worksheet finden, könntest du mir vielleicht mal den gesamten
Pfad schreiben? Wäre nett....


MFG
Steffen