Macro für Drucken bestimmter Seiten wird ignoriert
Verfasst: Mi, 14.05.2008 20:48
Hallo!
Bis jetzt hatte ich in Calc in den Optionen "Nur ausgwählte Tabellen drucken" deaktiviert und folgendes Macro laufen (mit dem Macro-Assistenten erstellt), das mittels einer Schaltfläche gestartet wird:
Aus verschiedenen praktischen Gründen will ich nun die Option "Nur ausgwählte Tabellen drucken" aktivieren, dann funktioniert oben genanntes Macro beim Drucken aber nicht mehr, auch wenn ich es mit dem Assistenten neu erstelle.
Es wird nur die erste (aktive) Seite gedruckt und keine weitere Seite mehr.
Wie muss der Code lauten, damit weiterhin auch die anderen (nicht ausgewählten) Seiten/Tabellen gedruckt werden?
Danke für jede Hilfe!
lg, egciuffo
Bis jetzt hatte ich in Calc in den Optionen "Nur ausgwählte Tabellen drucken" deaktiviert und folgendes Macro laufen (mit dem Macro-Assistenten erstellt), das mittels einer Schaltfläche gestartet wird:
Code: Alles auswählen
sub drucken
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(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Copies"
args1(0).Value = 1
args1(1).Name = "RangeText"
args1(1).Value = "1"
args1(2).Name = "Collate"
args1(2).Value = false
dispatcher.executeDispatch(document, ".uno:Print", "", 0, args1())
rem ----------------------------------------------------------------------
MsgBox "Das Blatt bitte mit der bedruckten Seite nach oben wieder in den Drucker einlegen. Dann auf OK klicken."
rem ----------------------------------------------------------------------
dim args2(2) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Copies"
args2(0).Value = 1
args2(1).Name = "RangeText"
args2(1).Value = "3"
args2(2).Name = "Collate"
args2(2).Value = false
dispatcher.executeDispatch(document, ".uno:Print", "", 0, args2())
end sub
Es wird nur die erste (aktive) Seite gedruckt und keine weitere Seite mehr.
Wie muss der Code lauten, damit weiterhin auch die anderen (nicht ausgewählten) Seiten/Tabellen gedruckt werden?
Danke für jede Hilfe!
lg, egciuffo
