OpenOffice.info

oPageStyles = oDoc.getStyleFamilies().getByName( "PageStyles" )
template = oPageStyles.getByName(sheet.PageStyle+"")

Vielen Dank Charly du hast mir den Tag gerettet ;)
Hier meine Lösung für alle die auf dasselbe Problem stoßen.

[code]
oPageStyles = oDoc.getStyleFamilies().getByName( "PageStyles" )
template = oPageStyles.getByName(sheet.PageStyle+"")
[/code]

Gruß
Bluescreen

Sub SeitenvorlageCalc
Doc = ThisComponent
Blatt = Doc.sheets(0)
Vorlage = Blatt.pagestyle
MSGBOX(Vorlage)
End Sub

Hallo Bluescreen!

Der Link trifft nur auf Writer zu. Calc hat keinen Viewcursor.

Für Calc musst du für jedes Tabellenblatt die Seitenvorlage wie folgt ermitteln:
[code]
Sub SeitenvorlageCalc
Doc = ThisComponent
Blatt = Doc.sheets(0)
Vorlage = Blatt.pagestyle
MSGBOX(Vorlage)
End Sub
[/code]

Gruß
Charly

Dim cursor,mySeitenformat as Object
	
cursor = oDoc.GetCurrentController.ViewCursor
mySeitenformat=cursor.PageDescName

[code]
Dim cursor,mySeitenformat as Object

cursor = oDoc.GetCurrentController.ViewCursor
mySeitenformat=cursor.PageDescName
[/code]

Basic Laufzeitfehler
Eigenschaft oder Methode nicht gefunden

Ich habs auch mit getter probiert. Es liegt vermutlich daran das ich unter Calc drucken möchte.
Im Objekt CurrentController konnte ich den Style namen nicht finden. Wenn ich den habe, hab ich gewonnen. :)

Hallo!

Vielleicht hilft folgender Link.
http://www.dannenhoefer.de/faqstarbasic/WiekannmandieaktuelleSeitenvorlageermitt.html

Gruß
Charly

Sub setPaperOrientation(mode as String,optional sheet as Object)
	Dim template as Object
	
	' Vorlage Pagestyle auslesen
	template = getCurrentPageStyle()

	' Hochformat
	if mode = "LANDSCAPE" then
		template.isLandscape = true
		
	'QuerFormat
	elseif mode = "PORTRAIT" then
		template.isLandscape = false
	
	' Automatisch
	elseif mode = "AUTO" then
		if getLastRow(sheet) > 20 then
			template.isLandscape = false
		else
			template.isLandscape = true
		endif
	end if
end sub

Function getCurrentPageStyle()
	oPageStyles = oDoc.getStyleFamilies().getByName( "PageStyles" )
	for i = 0 to oPageStyles.Count - 1
	   oStyle = oPageStyles.getByIndex( i )
	   if oStyle.isInUse() then
	     getCurrentPageStyle = oStyle
	     exit function
	   end if
	next
end function

Hallo,

ich hab ein Dokument mit insgesammt 5 Pagestyles. Ich hab einen kleinen Druckdialog geschrieben der automatisch die Layouts zuweißt und auf 2 verschiedenen Druckern ausdruckt. Allerdings funktioniert das ganze nicht so wie ich mir das vorstelle da ich den akteullen Pagestyle nicht herausbekomme sondern immer den ersten verwendeten. Der ist allerdings im Querformat. Ich brauche aber einen automatischen Druck im Hochformat.

[code]
Sub setPaperOrientation(mode as String,optional sheet as Object)
Dim template as Object

' Vorlage Pagestyle auslesen
template = getCurrentPageStyle()

' Hochformat
if mode = "LANDSCAPE" then
template.isLandscape = true

'QuerFormat
elseif mode = "PORTRAIT" then
template.isLandscape = false

' Automatisch
elseif mode = "AUTO" then
if getLastRow(sheet) > 20 then
template.isLandscape = false
else
template.isLandscape = true
endif
end if
end sub

Function getCurrentPageStyle()
oPageStyles = oDoc.getStyleFamilies().getByName( "PageStyles" )
for i = 0 to oPageStyles.Count - 1
oStyle = oPageStyles.getByIndex( i )
if oStyle.isInUse() then
getCurrentPageStyle = oStyle
exit function
end if
next
end function
[/code]

Hat da einer eine Idee?

Gruß
Bluescreen