Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro bitte prüfen und evtl. ergänzen

Makro bitte prüfen und evtl. ergänzen
Josef_T
Guten Abend.
Habe mir unten stehendes Druckmakro zusammen gestellt, es funktioniert zwar, aber nicht exakt.
z.B. müsste ".Zoom = 100" noch einprogrammiert werden, ich bekomme das aber nicht auf die Reihe.
Über "Seite einrichten", kann ich nichts machen, weil in dem gleichen TB noch zwei andere Druckmakros installiert sind, die aber nur kleine Bereiche drucken.
Es wäre Super, wenn Ihr Profis mir dabei helfen würdet.
Option Explicit
Sub Stunden()
Application.EnableEvents = False
Range("A1:H43").Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$43"
With ActiveSheet.PageSetup.Orientation = xlPortrait
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.EnableEvents = True
Range("C3").Select
End Sub
Danke schon mal
Gruß, Josef

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

Betreff
Benutzer
Anzeige
AW: Makro bitte prüfen und evtl. ergänzen
03.10.2009 00:38:01
Steffen
Hallo,
mit:
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.Zoom = 100
end with
müßte es gehen
Grüße Steffen
AW: Makro bitte prüfen und evtl. ergänzen
03.10.2009 01:24:00
Josef_T
Hallo Steffen,
genau das war es!
Danke sehr und Gute Nacht
Gruß Josef
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige