Seite 1 von 1
Re: Laufzeitfehler in Schleife
Verfasst: So, 15.01.2012 17:52
von 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
Re: Laufzeitfehler in Schleife
Verfasst: Mo, 16.01.2012 08:48
von dancer_m
Hallo F3K Total,
Ich danke ganz herzlich für die Hilfe!
Es funktioniert jetzt perfekt.
Grüße
Martin
Re: Laufzeitfehler in Schleife
Verfasst: So, 26.02.2012 19:54
von 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