Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 11:32:40
Vergleich 2 Spalten in Abhängigkeit vom Namen
16.04.2024 11:08:47
Text in Spalten zählen
16.04.2024 10:55:21
Welche Angaben sind Zeile- und Spaltenhöhe
16.04.2024 10:31:56
Bilder in Userform per VBA aus Sharepoint Ordner anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
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
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

WorkSheets_BeforePrint ??????

WorkSheets_BeforePrint ?
07.04.2005 12:04:25
Kersten
Hallo zusammen
Gibt es so etwas wie WorkSheets_BeforePrint.
Ich möchte nämlich den Druckbereich jeder einzelnen Tabelle automatisch individuell festlegen, bevor sie ausgedruckt wird.
Danke
Gruß Kersten

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WorkSheets_BeforePrint ?
07.04.2005 12:18:19
ANdreas
Hallo Kersten,
ich würde es so lösen:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim s$
Select Case ActiveSheet.Name
Case "Tabelle1": s = "A1:B20"
Case "Tabelle2": s = "C3:G45"
End Select
If Not s = "" Then ActiveSheet.PrintArea = s
End Sub

Gruß
Andreas
AW: Fehlerberichtigung
07.04.2005 12:20:05
ANdreas
Hallo Kersten,
auf die schnelle unterlief mir ein kleiner Fehler. Es muss natürlich so lauten:
If Not s = "" Then ActiveSheet.PageSetup.PrintArea = s
Gruß
Andreas
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige