Bereich drucken per Makro

[wolltiger]

Hallo!
Die Aufgabe ist - dachte ich - einfach: Drucke einen Bereich einer Tabelle per Makro. Selbst das aufgezeichnete Makro funtioniert nicht:
' Bereich drucken
document = ThisComponent.CurrentController.Frame
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$2:$G$113"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
In der letzten Zeile bekomme ich "Basic Laufzeitfehler: Objectvariable nicht belegt"
So geht es auch mit allen anderen Beispielen, die ich in den letzten Wochen im Internet gefunden und ausprobiert habe !!!!!
Hat vielleicht irgendwer ein funktionierendes Beispiel?
Danke

[karolus]

Dann ist entweder dein Makro-Aufzeichner kaputt, oder du hast irgendwas an der Aufzeichnung verbastelt? Ich tippe auf letzteres!

Code: Alles auswählen

sub Macro2
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$C$5:$E$13"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())


end sub

[wolltiger]

Danke, mir ist die Zeile "dispatcher ..." verloren gegangern