Eigenschaften von Textfeldern und Grafiken per Makro ändern

[domagic]

Hallo Freunde,

hat jemand von euch eine Idee, wie ich die Eigenschaft von Textfeldern bzw. Grafiken unter der Registerkarte Zusätze, Eigenschaften ändere.

Ich würde gerne optional das drucken von einzelnen Textfeldern und Grafiken erlauben. Vielleicht gibt es auch eine Option um alle Rahmen sofort zum drucken freizuschalten?

In diesem Zusammenhang wäre auch der Befehl interessant der die Drucker-Dialogbox aufruft.

Vielen Dank für eure Ratschläge.

[Toxitom]

Hey domagic,

zu viele Fragen auf einmal. Das funktioniert nicht.

Zu Textfeldern ahst diu schon eine Antwort erhalten, den Rest "drösel" erst mal in verständliche, kleine Happen auf. Dann klappt das auch.

Gruss
Thomas

[zap]

Hi, die Antwort auf den "Rahmen-freischalten"-Teil:

Code: Alles auswählen

sub einRahmenDrucken
  doc = thiscomponent
  rahmen = doc.TextFrames.getByName("Rahmen1")
  msgbox rahmen.print
  rahmen.print = False
end sub

sub alleRahmenDrucken
  doc = thiscomponent
  rahmen = doc.TextFrames.getByName("Rahmen1")
  for i = 0 to rahmen.Count
    rahmen.getByIndex(i).print = True
'    rahmen.getByIndex(i).print = False
  next  
end sub

edit: kurze erklaerung: bei print = True wird der Rahmen gedruckt, bei False wird er nicht gedruckt.

[domagic]

Hallöchen zap,

dein Code funktioniert bestens.

Vielen Dank!

Ich habe das Makro in die Menüleiste eingebunden um die Funktionen zu ändern.
Nachdem man die Seitenansicht aufruft verschwinden die Makros.

GetScript: No Script !

Jemand einen Anhaltspunkt?
Ist doch wohl ein Bug von OOo?

[ykcim]

Hi,
Nein es ist kein Bug.
In der Seitenansicht stehen nicht alle Funktionen zur Verfügung. Siehe dazu auch unter dem Menü Format.


Den Namen eines Rahmens kannst Du mit ändern:

Code: Alles auswählen

sub einRahmenDrucken
  doc = thiscomponent
  rahmen = doc.TextFrames.getByName("Rahmen1")
  rahmen.setname("Neuer Name")
end sub 

mfg
Michael Dannenhöfer

[domagic]

Nachdem ich die Seitenansicht wieder geschlossen habe verschwinden die Makros. In der Seitenansicht die Makros anzuwenden wäre zwar praktisch, aber kein Muss.

Ich führe einen Makro aus, z.B. "AUf Briefpapier drucken" und gehe auf die Seitenansicht. Hier passt alles, also drucke ich es aus. Danach schließe ich die Seitenansicht und will den Makro "Als Entwurf drucken" ausführen über das Dateimenü und erhalte die Fehlermeldung:

getScript: no Script!