OpenOffice.info

Hallo,

ich habe eine Tabelle mit mehreren Tabellenblättern und habe per Makroaufzeichnung erreicht, dass nur die markierten Zellen ausgedruckt werden (funktioniert aber nur direkt bei der Aufzeichnung).
Wenn ich aber das gespeicherte Makro wiederum ausführen lasse, druckt es die ganze Tabelle aus.
Kann jemand helfen?

Mein Makro sieht so aus:

sub Druck_Erg4
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 = "$A$1:$H$49"

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

rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Copies"
args2(0).Value = 1
args2(1).Name = "Collate"
args2(1).Value = true

dispatcher.executeDispatch(document, ".uno:Print", "", 0, args2())

end sub


MfG
penti