Seite 1 von 1
Makro - Drucken ohne logo und ohne shape
Verfasst: Di 2. Sep 2014, 16:49
von vladst
Hallo Alle.
Helfen sie bitte. Ich habe ein Dokument mit Logo und mit ein Shape.
ich wollte ein Makro schreiben, der das Dokument ohne Logo und ohne Shape druckt.
Ein Macro habe ich geschrieben, aber der kann Logo nur löschen .
Sub RemoveLogo
Dim oDoc as Object
oDoc = ThisComponent
Dim oGraphics as Object
oGraphics = oDoc.getGraphicObjects.getbyName("Logo")
oDoc.getText().removeTextContent(oGraphics)
End Sub
Danke im Voraus!
Re: Makro - Drucken ohne logo und ohne shape
Verfasst: Di 2. Sep 2014, 19:28
von Rocko
vladst hat geschrieben:Helfen sie bitte. Ich habe ein Dokument mit Logo und mit ein Shape.
ich wollte ein Makro schreiben, der das Dokument ohne Logo und ohne Shape druckt.
Vielleicht helfe ich dir mehr, wenn ich dich auf eine alternative Fährte locke. Der Druck mit und ohne bestimmt Objekte lässt sich nämlich ganz leicht durch einen Wechsel der Seitenvorlagen erreichen.
Dazu folgende Links:
http://de.openoffice.info/viewtopic.php ... 66#p247566
http://de.openoffice.info/viewtopic.php ... 05#p216205
Re: Makro - Drucken ohne logo und ohne shape
Verfasst: Mi 3. Sep 2014, 12:57
von vladst
Danke Rocko für die schnelle Anwort und Hilfe.
Leider nicht geklappt
.
Logo und shape befinden sich in Kopfzeile und noch ein paar Worte dort.
Ich versuche logo und shape ausschalten und danke das Dokument drucken.
Mein Zweck ist zwei Button: ein Button druckt mit Logo und shape, zweite ohne.
Ich werde weiter versuchen, wenn was klappt, schreibe ich ein Bericht
.
Re: Makro - Drucken ohne logo und ohne shape
Verfasst: Mi 3. Sep 2014, 13:08
von Rocko
vladst hat geschrieben:Danke Rocko für die schnelle Anwort und Hilfe.
Leider nicht geklappt
.
Logo und shape befinden sich in Kopfzeile und noch ein paar Worte dort.
Genau das aber passiert in der mitgelieferten Beispieldatei. Hast du die Beispieldatei nicht zum Laufen gebracht?
Wenn du das bereits nachzustellen versuchst, solltest du vorher alle Elemente, auch die Makros und die Seitenvorlagen mal genau anschauen.
Re: Makro - Drucken ohne logo und ohne shape
Verfasst: Do 11. Sep 2014, 09:17
von vladst
Hallo Alle
Ich habe zwei Makros.
Erstes Makro schaltet die Seitenvorlage mit Logo ein.
Code: Alles auswählen
Sub Standard
myDoc = thiscomponent
Dim oCursor As Object
MyCursor = ThisComponent.Text.createTextCursor()
MyCursor.PageDescName = "Standard"
MyCursor = ThisComponent.Text.createTextCursor()
MyCursor.PageDescName = strNew
End Sub
Zweites Makro schaltet die Seitenvorlage ohne Logo ein.
Code: Alles auswählen
Sub Briefbogendruck
myDoc = thiscomponent
Dim oCursor As Object
MyCursor = ThisComponent.Text.createTextCursor()
MyCursor.PageDescName = "Briefbogendruck"
MyCursor = ThisComponent.Text.createTextCursor()
MyCursor.PageDescName = strNew
End Sub
Probleme ist,
Diese Makros funktionieren auf alle Seiten außer Erste.
Kann jemand sagen, was ich Makro ändern muss
Danke im Voraus!
Gruß
Vlad
Re: Makro - Drucken ohne logo und ohne shape
Verfasst: Do 11. Sep 2014, 09:57
von Rocko
vladst hat geschrieben:Probleme ist, Diese Makros funktionieren auf alle Seiten außer Erste. Kann jemand sagen, was ich Makro ändern muss
Wenn du schon meinst eine Alternative nachstellen zu müssen, solltest du dich in den Seitenvorlagen etwas besser auskennen. Du schaltest um von "Briefbogendruck" auf "Standard". "Standard" aber ist die Seitenvorlage ab Seite 2. Du musst zusätzlich eine alternative Seitenvorlage für die 1. Seite generieren und dann auf diese umschalten (z.B. "Briefbogendruck mit (oder ohne) Logos".
(Verweise auch auf dein Crossposting im anderen Forum!)