aktuelle Tabelle (ActiveSheet) als A3 formatieren

[justus07]

edit (Moderation, mikeleb): Thema von "Calc" nach " Makros und allgemeine Programmierung verschoben"

Moin, SORRY, ich bin neu hier; wurschtel mich gerade mal so durch das Forum durch ...

Ich möchte meine aktuelle Tabelle per Makro auf A3-Querformat einstellen
Tja: mein aktueller Code funktionert leider nicht - wahrscheinlich nur eine Kleinigkeit - oder fehlendes Basiswissen ?
So: mein Code meine Sub):

Sub SetPageStyleToA3Landscape
REM A3-Querformat ist Pflicht
dim myDoc As Object
dim dispatcher As Object
dim myStyleFamilies As Object
dim myPageStyles As Object
dim DefPage As Object

myDoc = ThisComponent
mySheet = myDoc.CurrentController.ActiveSheet

dispatcher = createUnoService("com.sun.star.frame.DispatcherHelper")

myStyleFamilies = myDoc.StyleFamilies
myPageStyle = myStyleFamilies.getByName("PageStyles")
DefPage = myPageStyle.getByName("Default")

DefPage.IsLandScape = true REM Querformat
DefPage.Width = 42000 REM A3-Breite
DefPage.Height = 29700 REM A3-Höhe

End Sub

Kann mir irgendjemand helfen ?
Wahrscheilich liegt das an einem fehlerhaften Zugriff auf meine aktuelle Tabelle ... aber ich finde den Fehler nicht.

VG Jan

[Mondblatt24]

Hallo,
wozu ein Makro?

Unter Format → Seitenvorlage ► Register: Seite kann doch alles entsprechend eingestellt werden.


Gruß
Peter

[cwolan]

Ich möchte meine aktuelle Tabelle per Makro auf A3-Querformat einstellen
Tja: mein aktueller Code funktionert leider nicht - wahrscheinlich nur eine Kleinigkeit - oder fehlendes Basiswissen ?

Was genau funktioniert nicht?
Ich sehe die neue Einstellung (A3-Querformat) in OpenOffice und LibreOffice.
⠀

A4_A3.png (62.03 KiB) 928 mal betrachtet

[justus07]

Moin, Danke Euch für die Info's - zu Fuß kann ich das auch ...
Ich versuche es aber, das ganze per Makro zu lösen - das ist mein Problem.
Kennt jemand irgendeine Lösung ?
Viele Grüße
Jan

[quotsi]

Moin, Danke Euch für die Info's - zu Fuß kann ich das auch ...
Ich versuche es aber, das ganze per Makro zu lösen - das ist mein Problem.

Und warum schreibst du das nicht bereits im Betreff?
Meckern kann jeder.
Auch gibt es noch ein spezielles Unterforum für Makro

[mikeleb]

Hallo,
das Makro funktioniert (bei mir). Die Seitenvorlage "Standard" wird wie gewünscht geändert.