Seite 1 von 1
Eigenschaften von Textfeldern und Grafiken per Makro ändern
Verfasst: Mi, 20.07.2005 17:29
von 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.
Verfasst: Mi, 20.07.2005 18:10
von 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
Verfasst: Mi, 20.07.2005 18:13
von 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.
Vielen Dank!
Verfasst: Mo, 25.07.2005 13:23
von 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?
Verfasst: Di, 26.07.2005 15:08
von 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
Seitenansicht
Verfasst: Mi, 27.07.2005 09:05
von 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!