Excel-Arbeitsmappe drucken

12/04/2013 - 21:59 von post | Report spam
Moin.

Ich muss die 18 Blàtter eine Excel-Arbeitsmappe ausdrucken, wobei jedes
Excel-Blatt auf ein DIN-A4-Blatt gedruckt werden muss, egal wie groß es
ist. Wie kann ich einstellen, dass zum Maßstab dasjenige Blatt gemacht
wird, das die meisten Zeilen und Spalten hat und dann alle Excel-Blàtter
entsprechende skaliert auf jeweils ein DIN-A4-Blatt gedruckt werden.

Gruß. Friedrich

http://www.rafv.de

post (at) vatolin (punkt) de
 

Lesen sie die antworten

#1 Claus Busch
12/04/2013 - 22:30 | Warnen spam
Hallo Friedrich,

Am Fri, 12 Apr 2013 21:59:27 +0200 schrieb Friedrich Vosberg:

Ich muss die 18 Blàtter eine Excel-Arbeitsmappe ausdrucken, wobei jedes
Excel-Blatt auf ein DIN-A4-Blatt gedruckt werden muss, egal wie groß es
ist. Wie kann ich einstellen, dass zum Maßstab dasjenige Blatt gemacht
wird, das die meisten Zeilen und Spalten hat und dann alle Excel-Blàtter
entsprechende skaliert auf jeweils ein DIN-A4-Blatt gedruckt werden.



wenn du bei dem Blatt mit den meisten Daten die Größe feststellst und
diese Größe bei PrintArea auf allen Blàttern angibst, werden viele
unnötige Seiten durchgezogen.
Falls es dir aber um die Schriftgröße geht, dann probiere es mal so:

Sub test()
Dim i As Integer

For i = 1 To Sheets.Count
With Sheets(i).PageSetup
.PrintArea = "$A$1:$H$75"
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Sheets(i).PrintOut copies:=1
Next
End Sub


Mit freundlichen Grüßen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen