Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Excel-Arbeitsmappe drucken

13 views
Skip to first unread message

Friedrich Vosberg

unread,
Apr 12, 2013, 3:59:27 PM4/12/13
to
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

Claus Busch

unread,
Apr 12, 2013, 4:30:55 PM4/12/13
to
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

Claus Busch

unread,
Apr 12, 2013, 4:37:08 PM4/12/13
to
Hallo Friedrich,

Am Fri, 12 Apr 2013 22:30:55 +0200 schrieb Claus Busch:

> 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.

ich w�rde den exakten Bereich als PrintArea nehmen:

Sub Test2()
Dim i As Integer

For i = 1 To Sheets.Count
With Sheets(i).PageSetup
.PrintArea = Sheets(i).UsedRange.Address

Volker Neurath

unread,
Apr 13, 2013, 4:22:13 PM4/13/13
to
Friedrich Vosberg wrote:

> 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.

Dass das keinen Sinn macht, weil das durchaus bedeuten kann, dass ein
Worksheet in 2-Punkt-Schrift ausgedruckt wird und so, wenn ï¿œberhaupt, nur
noch mit der Lupe zu lesen ist, ist dir klar?

Aber ok, jeder wie er mag ...

Volker
--
Im ï¿œbrigen bin ich der Meinung, dass TCPA/TCG verhindert werden muss

Wenn es vom Himmel Zitronen regnet, dann lerne, wie man Limonade macht

Friedrich Vosberg

unread,
Apr 16, 2013, 5:33:08 AM4/16/13
to
Volker Neurath <nean...@gmx.de> wrote:

> Friedrich Vosberg wrote:
>
> > 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.
>
> Dass das keinen Sinn macht, weil das durchaus bedeuten kann, dass ein
> Worksheet in 2-Punkt-Schrift ausgedruckt wird ...

Die Größenunterschiede sind nicht so gravierend. Hab's inwzischen mit
den Einstellungen im Druckdialog von Excel hinbekommen. Die Schrift ist
zwischen 6 und 12 Punkt groß. Das ist noch im Rahmen des Leserlichen.

Danke für die Hinweis.

Gruß. Friedrich
0 new messages