Thema Datum  Von Nutzer Rating
Antwort
23.01.2018 19:18:54 Christoph
*****
NotSolved
Blau Abfrage beim Drucken
 25.01.2018 01:20:19 xlKing
NotSolved
25.01.2018 01:29:04 Gast9869
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
25.01.2018 01:20:19		 Views:
501		 Rating:
     
Antwort:
  Ja
Thema:
Abfrage beim Drucken

Hallo Christoph,

ich nehme an, es handelt sich um ein Formularfeld (erkennbar daran, dass sich der Hintergrund beim anklicken grau färbt)? Wenn du da mal doppelt drauf klickst, kannst du im Feld "Textmarke" den Namen des Feldes lesen. z.B. Text1. Diesen Namen einfach unten im Code anpassen.

Im VBA-Editor könnte der Code im Modul ThisDocument in etwa so aussehen. (Funktioniert erst nach dem Schließen und neu Öffnen des Dokuments!)

Private WithEvents wdEvent As Application

Private Sub Document_Open()
  Set wdEvent = Application
End Sub

Private Sub wdEvent_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
  If Doc.FormFields("Text1").Range.Text = "     " Then
    MsgBox "Bitte Aktenzeichen ausfüllen", vbExclamation
    Cancel = True
  End If
End Sub

Kann es leider nicht so richtig testen, da ich grad keinen Drucker installiert habe. Andere Events (z.B. BeforeRightclick) funktionieren aber gut.

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.01.2018 19:18:54 Christoph
*****
NotSolved
Blau Abfrage beim Drucken
 25.01.2018 01:20:19 xlKing
NotSolved
25.01.2018 01:29:04 Gast9869
NotSolved