Tabellen Rahmen in Bericht

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: Tabellen Rahmen in Bericht

von Stephan » Mo, 11.12.2006 22:05

ich habe jetzt Deinen Code nicht weiter angeschaut, aber auf die Schnelle sollte:

.BottomLine

statt

.BottonLine

funktionieren.



Gruß
Stephan

Tabellen Rahmen in Bericht

von chris786 » Mo, 11.12.2006 20:57

Hallo
Per Makro erstelle ich einen Bericht der die entsprechenden Daten aus
der Datenbank ausließt. Das funktioniert so weit auch ganz gut. :-)
Allerdings will ich die Tabelle des Berichts noch ein wenig formatieren.

Code: Alles auswählen

Dim Arg()
sURL = "private:factory/swriter"
oDok2 = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, Arg())
	oTxtRange = oDok2.text.getEnd()
	oTab = oDok2.createInstance("com.sun.star.text.TextTable")
	With oTab
		.HoriOrient = 0 
		.Name = "Bericht"
		.initialize(9,2)
	end with	
oTxtRange.getText().insertTextContent(oTxtRange, oTab, false)

	Dim aTabHead(0 to 8,0 to 1)
	aTabHead(0,0) 
	...
	aTabHead(8,0) 
	oTab.setDataArray(aTabHead())
	
	
dim oLinie as new com.sun.star.table.BorderLine
with oLinie
   .Color = rgb(41, 191, 20)  'grün
   .outerLineWidth =50
end with
dim oRahmen as new com.sun.star.table.TableBorder
with oRahmen
   .TopLine = oLinie
   .BottonLine = oLinie
end with
table.TableBorder = oRahmen 

	oTxtRange.getText().insertTextContent(oTxtRange, oTab, false)
Wenn ich das Makro Ausführe bekomme ich immer nur die Fehlermeldung:
Basic Laufzeitfehler
Eigenschaft oder Methode nicht gefunden
und der makiert mir die Spale:
.BottonLine

Hat jemand eine Idee

Nach oben