Makro - Drucken ohne logo und ohne shape

[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!

[Rocko]

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

[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 .

[Rocko]

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.

[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

[Rocko]

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!)