Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
280to284
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckmitteilung ausschalten

Druckmitteilung ausschalten
14.07.2003 10:30:06
Michael
Hallo zusammen,
hab da eine Frage und zwar erscheint in excel immer wenn gedruckt wird eine kurze Benachrichtigung Seite x von y wird gedruckt, die dann kurz daruaf wieder verschwindet. Kann ich dies irgendwie so bewerkstelligen dass sie gar nicht erst erscheint mittels vba?
Vielen Dank mal wieder im Voraus!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckmitteilung ausschalten
14.07.2003 10:46:05
ivan
hi Michael
vor dem drucken in den code
Application.DisplayAlerts = False

nach dem drucken
Application.DisplayAlerts = True
gruss
ivan

AW: Druckmitteilung ausschalten
14.07.2003 11:14:53
Michael
Funktioniert leider nicht IVAN :-(

AW: Druckmitteilung ausschalten
14.07.2003 11:56:25
ivan
HI Michael
las mal deinen code sehen!
gruss
ivan

AW: folgebeitrag2
14.07.2003 12:07:19
ivan


Hallo Michael 
schreibe es doch in
Private Sub Workbook_Open()
Application.Displayalerts = false 
End Sub
und in 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Displayalerts = True
End Sub
Aber dann ist das Problem das alle Meldungen abgeschaltet werden
gruss
ivan

Anzeige
AW: folgebeitrag2
14.07.2003 14:07:41
Michael
Hier mein Code:
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Visible = False
Application.DisplayAlerts = False
On Error GoTo errorhandler
Range("A1").Select
ActiveSheet.Paste
'Application.DisplayAlerts = False
**extra noch mal eingesetzt, bringt aber nichts**
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.Delete
Range("A1").Select
MsgBox "Änderung wird gedruckt!", vbInformation
OpenClipboard (0)
EmptyClipboard
CloseClipboard
Application.Quit
GoTo ende
errorhandler:
MsgBox "Fehler beim Drucken! Grafik im Zwischenspeicher?", vbCritical
Application.Quit
ende:
Application.Quit
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
End Sub


Anzeige
AW: folgebeitrag3
14.07.2003 14:40:08
ivan


hi Michael
ich kan leider nicht testen 
da ich dezeit keinen drucker angeschlosen habe.
du mußt das so eingeben arbeitsmape speichern und schließen!!
den code nicht gleich ausführen!!!
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Sub Workbook_Open()
  Application.ScreenUpdating = False
  Application.Visible = False
  Application.DisplayAlerts = False
On Error GoTo errorhandler
Range("A1").Select
    ActiveSheet.Paste
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Selection.Delete
Range("A1").Select
    OpenClipboard (0)
    EmptyClipboard
    CloseClipboard
    Application.Quit
    GoTo ende
errorhandler:
MsgBox "Fehler beim Drucken! Grafik im Zwischenspeicher?", vbCritical
Application.Quit
ende:
Application.Quit
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
Application.DisplayAlerts = True'unbedingt muß da stehen!!
End Sub
gruss
ivan

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige