Seitenumbruch automatisieren

Forumthread: Seitenumbruch automatisieren
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Seitenumbruch automatisieren

Rolf

Hallo zusammen,
ich habe eine Serie von geöffneten Exceldateien, bei denen ich den Druckbereich des 1. Worksheets jeweils automatisch so einstellen lassen möchte, dass alle genutzten Zellen auf 1 Seite ausgedruckt werden. Wie geht das?
Danke
Rolf

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Seitenumbruch automatisieren

ChrisL
AW: Seitenumbruch automatisieren

Rolf
AW: Seitenumbruch automatisieren

ChrisL
AW: Seitenumbruch automatisieren

Rolf

AW: Seitenumbruch automatisieren

22.06.2010 11:49:00

ChrisL

Hi Rolf

Sub Makro1()
Dim WB As Workbook
For Each WB In Application.Workbooks
With WB.Worksheets(1).PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Next WB
End Sub

cu
Chris

AW: Seitenumbruch automatisieren

22.06.2010 12:05:23

Rolf

Klappt leider nicht.
Das Makro geht zwar durch alle geöffneten Arbeitsmappen, aber die Einstellung bleibt unverändert. Liegt das evtl daran, dass die Dateien ursprünglich in Excel 2003 erstellt wurden?
Rolf

AW: Seitenumbruch automatisieren

22.06.2010 12:26:00

ChrisL

Hi Rolf
Hätte vorher testen sollen ;)
So müsste es gehen:

Sub Makro1()
Dim WB As Workbook
For Each WB In Application.Workbooks
With WB.Worksheets(1).PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Next WB
End Sub

cu
Chris

AW: Seitenumbruch automatisieren

22.06.2010 12:36:46

Rolf

Hallo Chris,
nich so ganz.
jetzt hat er mir einen Bereich von a1 bis ae58 auf 1 Seite geknallt, obwohl da Daten nur in einem kleinen Bereich oben links in der Ecke stehen.
Mittlerweile habe ich die Umbrüche von Hand verändert. Das geht mir zwar gegen den Strich, 30 Dateien einzeln zu bearbeiten, aber manchmal geht es doch schneller.
Thanks anyway.
rolf