Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
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
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druck-Makro

Druck-Makro
11.09.2008 14:17:45
Brehme
Hallo,
hat vielleicht jemand eine Idee bezüglich eines Makros, das mir jedes Tabellenblatt in der Arbeitsmappe druckt und zwar im Querformat?
Danke schonmal!
Gruß
Brehme

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

Betreff
Datum
Anwender
Anzeige
AW: Druck-Makro
11.09.2008 14:32:00
Knebel1
For i = 1 To Sheets.Count
Sheets(i).PageSetup.Orientation = xlLandscape
Sheets(i).PrintOut Copies:=1, Collate:=True
Next i
Gruß, Marc
AW: Druck-Makro
11.09.2008 14:33:08
Kawensmann
Hallo,
hier mal ein ganz einfacher Ansatz:

Sub Druck()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.orientation = xlLandscape
ws.PrintOut
Next
End Sub


Gruß
Kawensmann

AW: Druck-Makro
11.09.2008 14:51:00
Brehme
Super Jungs! Vielen Dank!
Funktioniert astrein!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige