Eigenes Kontextmenü wie Druckerauswahlpopup

[-Tom-]

Hallo,

Ich habe mir ein eigenes Kontextmenü erstellt, wenn ich dort auf Drucken klicke wird sofort der Druckauftrag losgeschickt. Wie kann ich mir erst das Fenster mit der Druckerauswahl anzeigen lassen?

Code (vb) [Auswählen] Erweitern


Private Sub Report_Load()
  Dim cb As CommandBar
  Dim btn As CommandBarButton

  On Error Resume Next
  CommandBars(cstrCmdBar).Delete
  Set cb = CommandBars.Add(cstrCmdBar, _
            msoBarPopup, False, False)
  With cb
    Set btn = _
    .Controls.Add(msoControlButton, _
                  4, , , True)
  End With 'cb

  Me.ShortcutMenuBar = cstrCmdBar

End Sub


-Tom-

[T417]

Zum Drucken verwendest du dabei aber das "Drucken-Icon", was aber auch in der normalen Kontextmenuleitse direkt-drucken bewirkt.

Ja

Kannst du nicht versuchen über Datei->Drucken zu gehen?

Habe die Leisten alle deaktiviert, habe aber gesehen dass in Access 2007 bei mir die Seitenansichtsleiste angezeigt wird und da ist das Drucken-Icon auch vorhanden und damit gehts.

Wäre zwar schön wenn es über das Kontextmenü auch gehn würden, aber anscheinend geht das nicht.

-Tom-