Druck von Grafiken unterdrücken

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Druck von Grafiken unterdrücken

Re: Druck von Grafiken unterdrücken

von F3K Total » Di, 31.07.2012 19:23

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

Re: Druck von Grafiken unterdrücken

von theindless » Di, 31.07.2012 15:04

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

Nach oben