OpenOffice.info

Danke, habe ich inzwischen auch gefunden. Habe mich darauf versteift, dass die Optionen aktiviert sein müssen und nicht anders herum.

mit der deaktivierten Einstellung "Nur ausgewählte Tabellen drucken" werden bei der Testmaschine hier (WinXP, 2.3.1) alle Druckbereiche auf dem Drucker ausgegeben.

Das mit den Einstellungen der Druckoptionen hat leider nichts gebracht.

Anbei nun eine Beispieldatei, die unter OpenOffice 2.0 automatisch durch anklicken der Schaltfläche den vorgegebenen Teilbereich der von Test1 und Test2 auf zwei Seiten ausdruckt.

[attachment=0]test.ods[/attachment]

Unter 2.3.1 bzw. 2.4 wird nur eine Seite gedruckt.

Hat jemand eine Idee warum nicht?

Danke im voraus
2stupid4this

Das Verhalten zum Drucken ist nun weiter konfigurierbar (und die Standardeinstellung hat sich geändert?).

siehe:[color=#008000]
Extras>Optionen>OpenOffice.org>OpenOffice.org Calc>Drucken[/color]
und ändere mal "Nur ausgewählte Tabellen drucken"

Klappt es damit wieder?


Sonst wird eine Ferndiagnose ohne Beispieldatei und kompletten Code schwierig...
Du kennst [url=http://ooomacros.org/dev.php#10416]XRay[/url] und setzt es zum Debuggen ein?



P.S.: Dein Ausschnitt vom Code setzt eine [color=#008000]oAktiv[/color]Adresse, druckt und löschst dann [color=#008000]oAktiv[b]2[/b][/color] ?

und bitte setze Code in die <code>tags: Code markieren, dann die Schaltfläche oberhalb des Schreibbereichs auslösen; Danke!

Sub Drucken 
Dim oDoc As Object
Dim oSheet As Object
Dim oZeile As Object
oDoc = ThisComponent
oShAktiv = oDoc.Sheets.GetByName("Test1") 

 
'Druckbereich für Testbereich festlegen
Dim oAktiv(0) As New com.sun.star.table.CellRangeAddress 
Dim oAktiv2() As New com.sun.star.table.CellRangeAddress 
oAktiv(0).Sheet = oShAktiv.Rangeaddress.sheet 
oAktiv(0).StartColumn = 0 : oAktiv(0).StartRow = 0 
oAktiv(0).EndColumn = 13 : oAktiv(0).EndRow = 58 
oShAktiv.setPrintAreas(oAktiv()) 

'festgelegte Druckbereiche Drucken
oDoc.Print(Array()) 

'festgelegte Druckbereich löschen
oShAktiv.setPrintAreas(oAktiv2())

end sub

Hallo zusammen,

ich habe ein Makro mit dem aus mehreren Arbeitsmappen in Calc vordefinierte Bereiche in einem "rutsch" durch anklicken einer Schaltfläche ausdrucke.

Bisher war die Version 2.0 im Einsatz. Nun seit Umstellung auf 2.3.1 bzw. 2.4 funktioniert das Makro nicht mehr. Hat jemand eine Idee warum nicht.

[code]
Sub Drucken
Dim oDoc As Object
Dim oSheet As Object
Dim oZeile As Object
oDoc = ThisComponent
oShAktiv = oDoc.Sheets.GetByName("Test1")


'Druckbereich für Testbereich festlegen
Dim oAktiv(0) As New com.sun.star.table.CellRangeAddress
Dim oAktiv2() As New com.sun.star.table.CellRangeAddress
oAktiv(0).Sheet = oShAktiv.Rangeaddress.sheet
oAktiv(0).StartColumn = 0 : oAktiv(0).StartRow = 0
oAktiv(0).EndColumn = 13 : oAktiv(0).EndRow = 58
oShAktiv.setPrintAreas(oAktiv())

'festgelegte Druckbereiche Drucken
oDoc.Print(Array())

'festgelegte Druckbereich löschen
oShAktiv.setPrintAreas(oAktiv2())

end sub
[/code]
Das ist nur ein Ausschnitt. Selbstverständlich sollen mehrere Bereiche gedruckt werden.

Danke im voraus für die Hilfe
2stupid4this