Moderatorenhinweis (Toxitom): Verschoben in den Bereich Makros!!
Hallo,
ich bekomme es einfach nicht hin , habe gefühlt das ganze Forum schon durch.
Meine Aktivitäten im Makro Bereich sind ewig her und wohl einiges an wissen gelöscht in der Birne
Ich möchte einfach nur ein Butten erstellen, wenn ich den mit der Maus drücke das Stg. P ausgeführt wird
aber auch mit Makro aufzeichnen funktioniert bei mir nichts
kann mir einer helfen ?
so sieht das beim Aufzeichen aus
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 ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array())
end sub
sub Drucken01
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 ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array())
[color=#40BF00][b]Moderatorenhinweis (Toxitom): Verschoben in den Bereich Makros!! [/b][/color]
Hallo,
ich bekomme es einfach nicht hin , habe gefühlt das ganze Forum schon durch.
Meine Aktivitäten im Makro Bereich sind ewig her und wohl einiges an wissen gelöscht in der Birne
Ich möchte einfach nur ein Butten erstellen, wenn ich den mit der Maus drücke das Stg. P ausgeführt wird
aber auch mit Makro aufzeichnen funktioniert bei mir nichts :shock:
kann mir einer helfen ?
so sieht das beim Aufzeichen aus
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 ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array())
end sub
sub Drucken01
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 ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array())