Druck von Grafiken unterdrücken

[theindless]

Hallo,

ich habe deinen ersten Code auch bei Dannenhöfer gefunden:

Code: Alles auswählen

Sub setDocPrintSettings
odoc=thisComponent
oDocSettings = oDoc.createInstance("com.sun.star.text.DocumentSettings")
oDocSettings.PrintDrawings=true
end sub

Pitonyak schreibt, dass es für Calc folgenden Service gibt:

Code: Alles auswählen

com.sun.star.sheet.DocumentSettings

Vielleicht hilft dir das weiter, wenn du den Service in deinem ersten Code austauscht.

Ist aber ungeprüft.

theindless

[F3K Total]

Hallo Thomas,
ich habe da mal was vorbereitet.
Wenn Du dieses Makro einer Schaltfläche (Button) auf "Tabelle1" unter "Aktion ausführen" zuordnest, und das Seitenformat Standard (Default) verwendest, funktioniert es.

Code: Alles auswählen

Sub setDocPrintSettings(event)
odoc = Thiscomponent
omodel = event.source.model
oStyle = odoc.StyleFamilies.PageStyles.getByName("Default")
if omodel.label = "Grafiken drucken" then
  omodel.label = "Grafiken nicht drucken"
  omodel.BackgroundColor = RGB(255,0,0)
  oStyle.PrintObjects = false
else
  omodel.label = "Grafiken drucken"
  omodel.BackgroundColor = RGB(0,255,0)
  oStyle.PrintObjects = true
endif
end sub

Gruß R