Warum Druckt mein Markro nicht??

[Noob Peter]

Hallo zusammen,
bin noch der absolute neuling was OpenOffice cal betrifft, habe vorher nur mit Exel gearbeitet, und aufgrund einer
Umstellung der PC´s auf der Arbeit wurde jetzt OpenOffice auf dem PC instaliert. Meine diversen Tabellen habe ich
dann alle in OpenOffice geöffnet und musste dann feststellen das die Makros nicht mehr funktionierten. Habe mich dann
mit den Markros in OpenOffice beschäftigt, und bin da schnell an meine Grenzen gestoßen, da ich meine Makros eigentlich
immer mit der Funktion " Makros Aufzeichnen" erstellt habe und es auch soweit mit Exel immer geklappt hat .

Mein Problem ist jetzt das ich das Makro Aufgezeichnet bekomme und es auch einer Schaltfläche zuweisen kann, aber beim
ausführen druckt mir das Markro nicht die Seite aus sondern kommt nur bis zum Fenster mit dem Drucker Menü und ich möchte
gerne 2 mal die Seite ausdrucken. Ich habe hier schon so einige Beiträge gelesen und war auch schon auf anderen Seiten aber
irgendwie komme ich nicht weiter. Und ganz ehrlich selbst ein Makro schreiben da fehlt mir einfach das Grundwissen .

Ich habe hier mal das Markro rein Kopiert und hoffe das ich eine Lösung bekomme auch wenn ich schon gelesen habe das
mann hier Tips bekommt aber nicht wirklich Lösungen und vieleicht geht es ja ganz einfach, nur ich komme halt nich drauf

Code: Alles auswählen

sub Main
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$1"

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


end sub

[​code]…[​/code] Tags um den Makro-Code gesetzt.
Thema OOo Basic und Java verschoben, wo alle Themen zur Basic-Programmierung hingehören.
lorbass, Mod
 

[F3K Total]

Moin,
versuche mal dieses Makro:

Code: Alles auswählen

Sub printerprint
dim printProp(1) as new com.sun.star.beans.PropertyValue
     printProp(0).name = "Wait"
     printProp(0).Value = true
     printProp(1).name = "CopyCount"
     printProp(1).Value = 2 'wenn es dreimal gedruckt werden soll -> die zwei durch eine drei ersetzen
     ThisComponent.Print(printProp())
end sub

Gruß R

[Noob Peter]

Das ist ja super super gut ich danke dir F3KTotal. Ich hoffe das ich für weitere Makros deine Hilfe in Anspruch nehemen darf
Denn ich glaube das es noch viele möglichkeiten gibt um bestimmte Aufgaben mit Makros zu vereinfachen, denn mein
Kollege hat noch weniger Ahnung vom Pc/ Tabellen erstellen usw. als meiner einer und daher bemühe ich mich es ihm zu vereinfachen aber
auch ich stoße da schnell an meine Grenzen.

In diesem Sinne noch mal ein dickes DANKE F3K Total und schöne Pfingsten

[F3K Total]

Hi,

Ich hoffe das ich für weitere Makros deine Hilfe in Anspruch nehemen darf

Wenn Du Dir das leisten kannst?
Gruß R