Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Before Print

Before Print
08.08.2002 04:52:05
Andre´
Hallo,

ich möchte gern über das Before Print Ereignis eine InputBox öffnen
in die derjenige der Druckt seinen Namen eingiebt und dieser Name sollte dann in der Kopfzeile rechts erscheinen.

Danke Andre´

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Before Print
08.08.2002 06:09:04
Hajo_Zi
Hallo Andre´

Gruß Hajo

Re: Before Print
08.08.2002 22:38:38
Andre´
Danke Hajo für den Code, nur eine kleinigkeit noch: Wenn Abbrechen gedrückt wird beginnt der Ausdruck trotzdem, schön wäre es wenn dann der gesamte Ausdruck abgebrochen wird.

Danke Andre´

Re: Before Print
09.08.2002 07:40:20
Hajo_Zi
Hallo Andre´

ich galube jetzt müßten alle Fäle abgesichert sein. Nur wenn ein Name eingegeben wird, wird auch gedruckt

Gruß Hajo

Re: Before Print
09.08.2002 21:50:37
Andre´
Hallo Hajo

irgendwie hats nicht Funktioniert aber vielleicht hab ich´s ja nur schlecht beschrieben. Ich habe deinen Code etwas "Modifiziert" (kl. Scherz) und so Funktionierts jetzt:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Wert As String
Wert = Application.InputBox("Bitte Kürzel eingeben um den Druck freizugeben.", "Druckfreigabe", Type:=2)
If Wert = "Falsch" Then Cancel = True
If Wert = "" Then Cancel = True
Exit Sub
' Kopfzeile Rechts
ActiveSheet.PageSetup.RightHeader = Wert
' Left=Links; Center=Mitte; Right=Rechts
' Header=Kopfzeile; Footer=Fußzeile
End Sub

Danke für deine Hilfe, Tschüß Andre´


Anzeige
Re: Before Print
09.08.2002 21:56:13
Hajo_Zi
Hallo Andre´


ich will ja nicht an Deinen Programmierkenntnissen zweifeln aber nach dem ersten blick kommt das Makro nicht zu
ActiveSheet.PageSetup.RightHeader = Wert
da davor ein Exit Sub steht

es mußte schon
If Wert = "Falsch" Then Cancel = True:Exit Sub
If Wert = "" Then Cancel = True:Exit Sub
ActiveSheet.PageSetup.RightHeader = Wert

lauten

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige