Domino 9 und frühere Versionen > Entwicklung

Menü: File/Print... abfangen

(1/2) > >>

TMC:
Gegeben:
Geöffnetes Dokument. User betätigt Menü: File/Print....

Genau dies würde ich gerne abfangen (zumindest eine Msgbox anzeigen, wenn User diesen Menübefehl auswählt.)

Gibt es da eine Möglichkeit? Evtl. auch über API?

Matthias

**EDIT**
$KeepPrivate will ich allerdings hier nur ungern verwenden....

Semeaphoros:
Um, da man die Menus im NoC nicht beeinflussen kann - leider - gibt es da nur ein Gehacke über die WinAPI, soweit mir bekannt ist. Und das ist nicht wirklich trivial, da man sich da in die Keyboard-Queue einnisten muss und dann die Tastenfolgen beobachten muss. Erstens gibt es da ja mehrere Wege, dahinzukommen (1. Alt-F P, 2. Ctrl - P, 3. mit der Maus), die alle abgefangen werden müssten, zweitens wird so etwas dann sofort abhängig von der Sprache des installierten Clients

TMC:
Danke für die Info Jens.


--- Zitat von: Semeaphoros am 09.10.04 - 15:41:00 ---da man sich da in die Keyboard-Queue einnisten muss und dann die Tastenfolgen beobachten muss.
--- Ende Zitat ---

Das klingt sehr gruselig.
Ich werde es evtl. doch über $KeepPrivate lösen, mal sehen.....

eknori:
tja, wenn man ein handle zum Menue bekäme, wäre der Rest über

Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _
    Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

schnell gemacht. Aber leider bekommt man kein handle zum Menue

TMC:
:-\


Ich mache es jetzt doch über $KeepPrivate. Wenn User unbedingt drucken muss, bekommt er eine Print-Form.

Ein Print-Buthong in der normalen Form enthält folgenden Code:


--- Code: ---Sub Click(Source As Button)

Dim session As New NotesSession
Dim doc As NotesDocument
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim uidocTempPrint As NotesUIDocument

Set uidoc = uiws.CurrentDocument
Set doc = uidoc.Document

doc.Form = "frmPrint"
doc.~$KeepPrivate = ""
Set uidocTempPrint = uiws.EditDocument( False, doc, True)
Call uidocTempPrint.Print (1)
Call uidocTempPrint.close

End Sub
--- Ende Code ---


Trotzdem danke für Eure Infos.

Navigation

[0] Themen-Index

[#] Nächste Seite