Office: (Office 2007) Orientation

Chief10 · 16. Juli 2005

Hallo zusammen,

ich habe folgenden Code um eine Tabelle in Excel zu erstellen und auszudrucken
Code:

' Erstmal Verbindung zu Elo aufnehmen
set Elo=CreateObject("ELffice")

Set objXL=CreateObject("Excel.Application")
Elo.SelectView(4)
objXL.Visible = TRUE
objXL.WorkBooks.Add
objXL.ActiveWorkbook.Worksheets(1).Activate
objXL.ActiveWorkbook.Worksheets(1).Name="Suchliste"

i=0
Do
id=Elo.GetEntryId(i)
if id

:)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 18. Juli 2005

Hallo Chief

warum "objXL." enferne das doch mal in der Zeile With objXL.ActiveSheet 'Workbook.Worksheets("Suchliste")

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.

Chief10 · 18. Juli 2005

Hallo Hajo,

ich mache das ganze nicht von Excel aus und brauche deshalb ein Excel-Objekt.
Funktioniert nicht ohne... Hab's getestet.

Chief10 · 18. Juli 2005

Hallo,

anscheinend findet hier auch keiner einen Fehler, oder?

Ich weiß nicht einmal ob es sich um ein Excel-spezifisches oder um ein VB-Problem handelt.

Möchte allerdings kein Doppelposting machen.... Also wenn ich hier falsch bin, könnte mich dann einer von den Admins verschieben?

Danke.

Chief10 · 18. Juli 2005

Hab's selbst gelöst. Hinter xlLandscape steht der Wert 2.

Wenn ich nun
Code:

objXL.ActiveSheet.PageSetup.Orientation=2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

verwende, klappt alles wunderbar.