Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Druck von einzelnen Tabellenblätter unterbinden

Betrifft: Druck von einzelnen Tabellenblätter unterbinden von: Gerhard
Geschrieben am: 07.09.2004 17:30:58

Hallo.
Wie kann ich unterbinden, dass ein Tabellenblatt einer Arbeitsmappe ausgedruckt wird (für Druck sperren)? Ersichtlich soll es bleiben.
Grüsse

  


Betrifft: AW: Druck von einzelnen Tabellenblätter unterbinden von: GraFri
Geschrieben am: 07.09.2004 17:42:28

Hallo

In DieseArbeitsmappe


Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5


Mit freundlichen Grüßen, GraFri


  


Betrifft: AW: Druck von einzelnen Tabellenblätter unterbinden von: Bert
Geschrieben am: 07.09.2004 17:42:52

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "Drucken nicht möglich!"
Cancel = True
End Sub


Bert


  


Betrifft: AW: Druck von einzelnen Tabellenblätter unterbinden von: Nepumuk
Geschrieben am: 07.09.2004 17:43:55

Hallo Gehard,
Rechtsklick auf das Excelicon neben Datei - Code anzeigen und folgendes Makro in das sich öffnende Editorfenster kopieren. Name der Tabelle anpassen, Fenster schließen, fertig.


Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "Tabelle1" Then Cancel = True
End Sub


Gruß
Nepumuk


 

Beiträge aus den Excel-Beispielen zum Thema "Druck von einzelnen Tabellenblätter unterbinden"