Laufzeitfehler in Schleife

[F3K Total]

Hi,
versuche es mal so:

Code: Alles auswählen

Dim oRanges(0)
osheet = ThisComponent.sheets(0)
orange = osheet.getcellrangebyposition(4,5,17,(druckbereich.value - 1) )
oRanges(0) = orange.rangeaddress
osheet.setPrintAreas(oRanges())
rem ThisComponent.Print(Array())

Gruß R

[dancer_m]

Hallo F3K Total,

Ich danke ganz herzlich für die Hilfe!
Es funktioniert jetzt perfekt.

Grüße
Martin

[dancer_m]

Danke Balu!!!

So, nächster Versuch!
Jetzt hängt sich das Ding zwar nicht mehr auf, aber es macht auch nichts in der Tabelle!

Code: Alles auswählen

Dim Lieferschein, LS_test As Object
dim feld1 As Object
dim Datcheck As Object

Sub Datum_eintragen
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
mydoc   = thiscomponent
mysheet = mydoc.sheets(8)
datumA  = mysheet.getcellrangebyname("aa2")

Datcheck = Lieferschein.Model

Lieferschein.getControl("Datcheck")

If Datcheck.State = 0 then
datumA.string = "=heute()"
End if

If Datcheck.State =1 then
datumA.string = ""
end if

end Sub