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

VBA: Blatt auf einer Seite darstellen

1,729 views
Skip to first unread message

Jürgen Meyer

unread,
May 27, 2013, 3:59:25 PM5/27/13
to
In den Excel Druck-Einstellungen nennt es sich:
"Blatt auf einer Seite darstellen"

Wie lautet daf�r die Anweisung in VBA?

Es geht also nicht darum, nur einen bestimmten Bereich auszudrucken.

Gru�
J�rgen

Claus Busch

unread,
May 27, 2013, 4:03:21 PM5/27/13
to
Hallo J�rgen,

Am Mon, 27 May 2013 21:59:25 +0200 schrieb J�rgen Meyer:

> In den Excel Druck-Einstellungen nennt es sich:
> "Blatt auf einer Seite darstellen"
>
> Wie lautet daf�r die Anweisung in VBA?

probiers mal so:
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With


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

Jürgen Meyer

unread,
May 27, 2013, 5:51:48 PM5/27/13
to
On Mon, 27 May 2013 22:03:21 +0200, Claus Busch <claus...@t-online.de>
wrote:

>Hallo J�rgen,
>
>Am Mon, 27 May 2013 21:59:25 +0200 schrieb J�rgen Meyer:
>
>> In den Excel Druck-Einstellungen nennt es sich:
>> "Blatt auf einer Seite darstellen"
>>
>> Wie lautet daf�r die Anweisung in VBA?
>
>probiers mal so:
>With ActiveSheet.PageSetup
> .FitToPagesWide = 1
> .FitToPagesTall = 1
>End With
>
>
>Mit freundlichen Gr��en
>Claus Busch

Hallo Claus,

danke f�r die Antwort
Das Blatt wird aber beim Druck nach wie vor auf zwei Seiten verteilt.

Das Problem ist, dass die Excel-Tabelle jedesmal zur Laufzeit neu erstellt
wird.

Gru�
J�rgen

Jürgen Meyer

unread,
May 27, 2013, 7:14:36 PM5/27/13
to
On Mon, 27 May 2013 23:51:48 +0200, J�rgen Meyer <juergen....@gmx.de>
wrote:
Nach etwas googlen hab' ich es jetzt:
Die beiden Zeilen Papersize und Zoom haben es gebracht.

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
Set oDatasheet = oBook.Activesheet

With oDatasheet
.PageSetup.PaperSize = 9 'xlPaperA4
.PageSetup.Orientation = 2 ' xlLandscape
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
End With

Danke, Du hast mich auf die richtige Spur gebracht.

Gru�
J�rgen

Jetzt wird's Zeit f�r's Bett

Claus Busch

unread,
May 28, 2013, 12:59:37 AM5/28/13
to
Hallo Jürgen,

Am Tue, 28 May 2013 01:14:36 +0200 schrieb Jürgen Meyer:

> With oDatasheet
> .PageSetup.PaperSize = 9 'xlPaperA4
> .PageSetup.Orientation = 2 ' xlLandscape
> .PageSetup.Zoom = False
> .PageSetup.FitToPagesWide = 1
> .PageSetup.FitToPagesTall = 1
> End With

Papiergröße ist eigentlich DIN A4 Standard und Zoom ist False Standard
und deswegen kann beides weg gelassen werden.
Aber wenn dein Druckbereich normal für 2 Seiten wäre ist die enfache
Anweisung FitTo... nicht genug, weil Excel dann beide auf 1 Seite
anpasst.
Du musst den Druckbereich festlegen, damit Excel weiß was auf 1 Seite
angepasst werden soll.


Mit freundlichen Grüßen
0 new messages