Hallo Wolfgang,
ich weis nicht, ob wir uns richtig verstanden haben. Nochmals: Die selbstprogrammierte MsgBox Function liefert einen Rückgabewert, den ich einer vorher definierten Variable zuweisen kann und anschließend auswerten kann, z.B.
sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Titel im Dialog").
Was steht auf der rechten Seiten, wenn ich per UNO-Befehl das Drucken-Dialogfenster aufrufe?
Auszug aus dem Makro:
If antwort = 6 Then 'Drucker einrichten MsgBox "Wählen Sie hiernach den Drucker für den Entwurf aus !" & chr(13) & _ "Benutzen Sie dazu die Auswahlmöglichkeiten unter 'Name: ' !" & chr(13) & _ "und für die Papierzufuhr die Schaltfläche 'Eigenschaften' ", 64, "Druckstatus"
dispatcher.executeDispatch(document, ".uno:PrinterSetup", "", 0, Array())
'wenn ich an dieser Stelle den Abbrechen-Schalter drücke, fährt das Makro trotzdem weiter und druckt das Dokument aus. Das möchte ich verhindern, indem ich den Rückgabewert von "PrinterSetup" ermitteln möchte.
'*** Drucken mit 'neuem' Drucker und neu eingestellter Papierzufuhr *** oDoc.Print(mNoPrintopts()) '*** Nach dem Drucken alten Drucker wieder einstellen *** 'Definition des Druckers Dim drucker(0) as New com.sun.star.beans.PropertyValue drucker(0).Name = "Name" drucker(0).Value = myPrinter(0).Value oDoc.setPrinter(drucker()) 'dispatcher.executeDispatch(document,"uno:PrinterSetup","",0,drucker()) Else
...
Mfg
Hellmuth
-------Originalmeldung-------
Datum: 11/05/05 18:03:44
Betreff: Rückgabewert eines
hallo Hellmuth,
Am Samstag 05 November 2005 11.15 schrieb Hellmuth Wackes:
> Wenn ich innerhalb eines Makros (OO2.0 Final-Version,
> Betriebssystem: Windows XP Professional) einen Standarddialog,
> z.B. den Dialog "Drucken" aufrufe, können die Schaltflächen <OK>
> und <Abbrechen> gedrückt werden. Wie kann ich nach dem Schließen
> des Dialogfensters abfragen, welche Taste gedrückt wurde, um den
> weiteren Programmablauf zu steuern?
RTFM :-) 'msgbox' anwählen, dann F1, dann 'MsgBox Function
[Runtime]' lesen
Grüsse
Wolfgang
---------------------------------------------------------------------
. |