OpenOffice.info

Hey!

danke- so geht es!

Danke!

Sascha

Sub DruckenBereiche
	dim arg()
	oDoc = thisComponent
	oT3 = oDoc.sheets(2)
	Dim aDruckbereiche(0)
	oDruckbereich1 = oT3.getCellRangeByName("a1:n50").rangeAddress
	aDruckbereiche(0) = oDruckbereich1
	oT3.setPrintAreas(aDruckbereiche())
	oDoc.print(arg()) 
End Sub

Hey Sascha,

also, das Problem ist immer: Ich poste keine kompletten Lösungen, sondern gebe Hinweise auf den Weg der Lösung. Ich setze dabei immer voraus, dass der Frager selbst zumincest Grundahnung hat und die Lösungen entsprechend weiterentwicklen kann.
Es ist immer schwierig, [b]alles [/b]zu posten und detailliert zu beschreiben.
Die Methode print() erwartet eine Argumentenliste (einen Array, der kann auch leer sein). Das habe ich natürlich vorausgesetzt. Genauso, wie oT3 definiert werden muss. Und dann funktioniert der Code natürlich.
Also hier der vollständige, getestete und korrekte Code:

[code]Sub DruckenBereiche
dim arg()
oDoc = thisComponent
oT3 = oDoc.sheets(2)
Dim aDruckbereiche(0)
oDruckbereich1 = oT3.getCellRangeByName("a1:n50").rangeAddress
aDruckbereiche(0) = oDruckbereich1
oT3.setPrintAreas(aDruckbereiche())
oDoc.print(arg())
End Sub[/code]

Ich hoffe, es hilft dir jetzt ein wenig weiter.

Gruss
Thomas

hey!

mit diesem Code erhalte ich die Fehlermeldung
"sequence element is not assignable by given value"
[code]
Dim oDoc as Object
oDoc= ThisComponent
Dim aDruckbereiche(0)
oDruckbereich1 = oT3.getCellRangeByName("a1:n30").rangeAddress
aDruckbereiche(0) = oDruckbereich1
oT3.setPrintAreas(aDruckbereiche())
oDoc.print(aDruckbereiche())
[/code]

Danke!

Sascha

hi!

habe dieses Script bei google gefunden, wenn ich es aufrufe, crashed allerdings mein Programm ohne Fehlermeldung (nicht mehr ansprechbar).
[code]
Sub Druckbereich_Ein (sSht$, nStC&, nStR&, nEndC&, nEndR&)

'------------------------------------------------------------------

Dim selArea(0) as new com.sun.star.table.CellRangeAddress

Dim oDoc as object

Dim oSheet as object

Dim oSheets

Dim i%

oDoc = Thiscomponent

oSheets = ThisComponent.Sheets

oSheet = ThisComponent.currentSelection.getSpreadsheet()

oSheet.setPrintareas(array())



selArea(0).StartColumn = 1

selArea(0).StartRow = 0

selArea(0).EndColumn = 12

selArea(0).EndRow = 46

oSheet=ThisComponent.currentSelection.getSpreadsheet()

oSheet.setPrintareas(selArea())

oDoc.Print(Array())

End Sub
[/code]

Hey!

danke für deine Antwort- ich erhalte, wenn ich diesen Code nehme, danna ber die Fehlermeldung "Arguments len differ!"

[code]
Dim aDruckbereiche(0)
oDruckbereich1 = oT3.getCellRangeByName("a1:n50").rangeAddress
aDruckbereiche(0) = oDruckbereich1
oT3.setPrintAreas(aDruckbereiche())
myDoc.print()
[/code]

myDoc ist so definiert:
[code]
Dim myDoc as Object
myDoc= ThisComponent
[/code]

Wie drucke ich jetzt Tabellenblatt 3?

danke,

Sascha

Dim aDruckbereiche(0)
oDruckbereich1 = oSheet.getCellRangeByName("a1:n50").rangeAddress
aDruckbereiche(0) = oDruckbereich1
oSheet.setPrintAreas(aDruckbereiche())

Hey Sascha,

[quote]gibt es eine Dokumentation dazu?[/quote]

Sicher. Alle Tabellenblätter unterstützen das Interface com.sun.star.sheet.XPrintAreas , und das findest du beschrieben in der Dokumentation ([url=http://api.openoffice.org/docs/common/ref/com/sun/star/module-ix.html]IDL online[/url] oder auch lokal im SDK).
Dort findest du dann Methoden wie getPrintAreas() oder auch setPrintAreas(aListe), wobei du mit letztgenannter die Druckbereiche für Tabellenblätter setzt. Wichtig dabei: Der übergebene Array überschreibt immer alle alten Druckbereiche - also vorher auslesen, und den Array erweitern!

In Kurzform:
[code]
Dim aDruckbereiche(0)
oDruckbereich1 = oSheet.getCellRangeByName("a1:n50").rangeAddress
aDruckbereiche(0) = oDruckbereich1
oSheet.setPrintAreas(aDruckbereiche())
[/code]

Gruss
Thomas

wenn ich jetzt Tabelle 3 und 4 drucken möchte, wie kann ich in diesem Beispiel den Druckbereich wählen? muss ich den an eine andere Funktion übergeben? gibt es eine Dokumentation dazu?

oDoc.print()

Hey Sascha,

[quote]gibt es für ein Dokument eine Printfunktion [/quote]

Ja, aber nicht für eine Tabelle:

[code]oDoc.print()[/code]

funktioniert ähnlich, wie wenn du den "Druck-Button" in der Standard-Iconliste betätigst.

Also: Bie Calcdokumenten bedeutet das, du musst vorher Druckbereiche einrichten, willst du nicht alles gedruckt haben. Und natürlich kann man das alles per Makro machen :D

Gruss
Thomas

hey!

gibt es für ein Dokument eine Printfunktion (Makro), z. Bsp.:
Dim oT1 as Objec
oT1=myDoc.sheets(1)
->>> oT1.print()

Danke,

Sascha