OpenOffice.info

Hallo mikeleb,

das Problem ist gelöst. Ich habe deine zwei Zeilen unterhalb von DIM eingefügt und es funktioniert. Vielen Dank!

krueuw

oSeitenvorlage=Thiscomponent.getStyleFamilies().getByName("PageStyles").getByName("PageStyle_Seite 2 der OA-Anzeige")
oSeitenvorlage.ScaleToPages=1

Hallo,
ich zwar nicht sicher, wie sich eine xslx-Datei mit Makros aus der AOO-/LO-Welt verträgt, aber der Zugang zur Seitenskalierung erfolgt über die Formatvorlage der Seite (dort stellst du es ja auch händisch ein).
Also auf deine Datei bezogen:
[code]oSeitenvorlage=Thiscomponent.getStyleFamilies().getByName("PageStyles").getByName("PageStyle_Seite 2 der OA-Anzeige")
oSeitenvorlage.ScaleToPages=1[/code]

	Sub FZL_drucken
    	dim oRanges(0)
    	osheet = thiscomponent.currentcontroller.activesheet
    	oRanges(0) = osheet.getcellrangebyname("A1:AI72").RangeAddress'Bereich 1
   		osheet.setprintareas(oranges)
    	dim printProp(1) as new com.sun.star.beans.PropertyValue
    	printProp(0).name = "Wait"
    	printProp(0).Value = true
    	printProp(1).name = "CopyCount"
    	printProp(1).Value = 1 
    	ThisComponent.Print(printProp())'Bereich 1 drucken				
	End Sub

Hallo,
in der neuen Version meines Briefassistenten sollen die Fehlzeitenbriefe durch eine detailierte Fehlzeitenauflistung einer vorgegebenen XLSX-Datei ergänzt werden. Leider gelingt es mir nicht ohne manuellen Skalierung das Tabellenblatt auf einer A4-Seite unterzubringen. Sowohl der PDF-Export, als auch der automatische Druck verteilen das Druckergebnis auf vier Seiten, obwohl es problemlos passen sollte. Weiß jemand Rat?

Bisher habe ich folgenden gefundenen Code verwendet:
[code] Sub FZL_drucken
dim oRanges(0)
osheet = thiscomponent.currentcontroller.activesheet
oRanges(0) = osheet.getcellrangebyname("A1:AI72").RangeAddress'Bereich 1
osheet.setprintareas(oranges)
dim printProp(1) as new com.sun.star.beans.PropertyValue
printProp(0).name = "Wait"
printProp(0).Value = true
printProp(1).name = "CopyCount"
printProp(1).Value = 1
ThisComponent.Print(printProp())'Bereich 1 drucken
End Sub
[/code]

Das Beispieldokument im Anhang.