Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1220to1224
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
Inhaltsverzeichnis

Spalten auf eine Seite

Spalten auf eine Seite
Gregor
Hallo zusammen
Ich habe folgendes Makro zum Drucken geschrieben. Zusätzlich möchte ich noch folgende Befehle integrieren:
- Querformat
- Alle Spalten auf einer Seite darstellen
Wie muss ich den Code ergänzen?

Sub Drucken()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.PrintCommunication = False
With ActiveSheet
.PageSetup.PaperSize = xlPaperA4
.PageSetup.PrintTitleRows = "$1:$1"
.PageSetup.PrintArea = "A2:" & ActiveCell.CurrentRegion.Cells(ActiveCell.CurrentRegion. _
Cells.Count).Address
.PrintOut Copies:=1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
.PageSetup.PrintArea = ""
End With
Application.PrintCommunication = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Vielen Dank und Gruss
Gregor

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
das sagt dir der Recorder. owT
15.07.2011 11:31:03
Rudi
AW: das sagt dir der Recorder. owT
15.07.2011 11:48:26
Gregor
Hallo Rudi
Das habe ich vorgängig im Office 10 aufgezeichnet, aber da kommen so viele Aufzeichnungen, dass ich den/die wirklichen Befehle nicht ausfindig machen konnte ... leider.
Wäre also um eine Unterstützung dankbar.
Gruss Gregor
AW: das sagt dir der Recorder. owT
15.07.2011 12:34:32
Rudi
Hallo,
Sub Drucken()
With Application
.EnableEvents = False
.ScreenUpdating = False
' .PrintCommunication = False
End With
With ActiveSheet
With .PageSetup
.PaperSize = xlPaperA4
.PrintTitleRows = "$1:$1"
.PrintArea = Range("A2").CurrentRegion.Address
.Orientation = xlLandscape
      .FitToPagesTall = False
.FitToPagesWide = 1
.Zoom = False
End With
.PrintOut Copies:=1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
.PageSetup.PrintArea = ""
End With
With Application
'.PrintCommunication = True
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Gruß
Rudi
Anzeige
AW: das sagt dir der Recorder. owT
15.07.2011 13:38:46
Gregor
Rudi vielen Dank, klappt bestens.
Gruss Gregor

52 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige