OpenOffice.info

Hallo
Nimm den Code von mir und entferne die msgbox-zeile.

Gruß Karo

Hallo Karo,

erst einmal vielen Dank.
Die msgbox gibt den richtigen Bereich aus, allerdings wurde im meinem Makro nicht der Bereich angegeben wenn in einer Zelle eine Wenn Funktion hinterlegt ist mit dem Ergebnis "" also kein Text bzw. Zahl.
Bekommst du das auch hin ?
Das wäre perfekt !

Vielen Dank
Norman

Sub printerrange
odoc = thiscomponent
oSheet = odoc.sheets(2)
oZellRange = oSheet.getCellRangeByName("$A$1")
oCursor = oSheet.createCursorByRange(oZellRange)
ocursor.gotoendofusedarea(true )

msgbox ocursor.absolutename 

oAdress = oCursor.RangeAddress
Dim aDruckbereich(0)
aDruckbereich(0) = oAdress
oSheet.setPrintAreas(aDruckbereich())
End Sub

Hallo
Gibt die msgbox bei folgenden Code den "richtigen" Bereich aus ?
[code]Sub printerrange
odoc = thiscomponent
oSheet = odoc.sheets(2)
oZellRange = oSheet.getCellRangeByName("$A$1")
oCursor = oSheet.createCursorByRange(oZellRange)
ocursor.gotoendofusedarea(true )

msgbox ocursor.absolutename

oAdress = oCursor.RangeAddress
Dim aDruckbereich(0)
aDruckbereich(0) = oAdress
oSheet.setPrintAreas(aDruckbereich())
End Sub[/code]

Gruß Karo

Hallo,
thisComponent.sheets(2) kenn ich und hab ich ausprobiert aber was genau muss ich in meinem Code verändern.
Habe versucht die Zeile oRanges(0).Sheet = ActiveSheet() in oRanges(0).Sheet = thisComponent.sheets(2)
umzuändern aber dann kommt eine Fehlermeldung.
Ich bin leider noch ganz am Anfang was OpenOffice Makros betrifft und versuche durch learning by doing vorwärts zukommen.

Danke
Norman

Hallo
Die Antworten zu deinen Fragen findest du auf Michael Dannenhöfers Seite, zb.:
[url]http://www.dannenhoefer.de/faqstarbasic/WiekannmandenDruckerwechseln..html#Zweig157[/url]
Das dritte Tabellenblatt ? - [color=#FF0000]thisComponent.sheets(2)[/color]

Gruß Karo

sub Letzte_Zelle_Spalte_A_Drucken
odoc=thiscomponent
oSheet = ThisComponent.CurrentController.getActiveSheet()
oEndrow = 0
while oSheet.getcellbyPosition(0,oEndrow).string <> ""
oEndrow = oEndrow+1
wend
if oEndrow = 0 then 
end if
Dim oRanges(0) As New com.sun.star.table.CellRangeAddress
oRanges(0).Sheet = ActiveSheet()
oRanges(0).StartColumn = 0 : oRanges(0).StartRow = 0
oRanges(0).EndColumn = 4 : oRanges(0).EndRow = oEndrow -1
ThisComponent.CurrentController.getActiveSheet().setPrintAreas(oRanges())
ThisComponent.Print(Array())
End Sub

Hallo,

ich benötige bitte Hilfe.
Ich glaube das diese Aufgabe für euch ganz einfach ist, ich verzweifel aber daran.
Ich habe schon ein Makro gefunden welche meine Wünsche fast erfüllt.
Nun soll dieses Makro aber auf das dritte Tabellenblatt angewendet werden, gestartet wird es aus dem ersten.
Und noch eine Bitte, es soll nicht der Standartdrucker verwendet werden sondern automatisch der dritte in der Drucker Liste.
Kann mir bitte jemand dabei helfen.

[code]
sub Letzte_Zelle_Spalte_A_Drucken
odoc=thiscomponent
oSheet = ThisComponent.CurrentController.getActiveSheet()
oEndrow = 0
while oSheet.getcellbyPosition(0,oEndrow).string <> ""
oEndrow = oEndrow+1
wend
if oEndrow = 0 then
end if
Dim oRanges(0) As New com.sun.star.table.CellRangeAddress
oRanges(0).Sheet = ActiveSheet()
oRanges(0).StartColumn = 0 : oRanges(0).StartRow = 0
oRanges(0).EndColumn = 4 : oRanges(0).EndRow = oEndrow -1
ThisComponent.CurrentController.getActiveSheet().setPrintAreas(oRanges())
ThisComponent.Print(Array())
End Sub
[/code]

Vielen Dank für eure Hilfe im voraus.
Viele Grüße
Norman



[color=#800000]Moderation,4[/color]: verschoben in BASIC Unterforum; Tippfehler Betreff korrigiert (für Suchfunktion)