Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Druck-Makro

Forumthread: 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
Anzeige

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

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

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige