Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
492to496
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abfrage vor dem Drucken

Abfrage vor dem Drucken
01.10.2004 07:54:28
Marcl
Guten Morgen allerseits,
ich möchte vor jedem Druck des Blattes eine Abfrage machen.
Habe an folgendes gedacht:

Private Sub Worksheet_beforeprint()
frage = MsgBox("Datenstand eigegeben?", vbYesNo)
If frage = 7 Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Will aber nicht so ganz funzen.
Was habe ich falsch gemacht?
Gruß
Marcl

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage vor dem Drucken
geri
Hallo Marcl
probier mal so

Sub drucken()
Dim d As Long
d = MsgBox("LIEFERSCHEIN+RECHNUNG DRUCKEN, sicher?", vbYesNoCancel + vbQuestion, "JA / NEIN ?")
If d = 6 Then Sheets("Tabelle1").PrintOut Copies:=1, Collate:=True
End Sub

gruss geri
AW: Abfrage vor dem Drucken
Marcl
Hallo Geri,
das ist ja "nur" ein Makro, welches man einer Schaltfläche zuprdnen muss. Ich möchte ein auto Makro haben, welches immer, beim Drücken des Druckbuttons oder Alt+P, .... vorher die Abfrage startet.
Also kein Druck ohne Abfrage, egal, was passiert.
Gruß
Marcl
Ach so...
fred
o
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige