VisualBasic Excel - Seitenskalierung über makro festlegen

N

Nico_B

Lt. Junior Grade

Registriert

Sep. 2010

Beiträge

345

• 1. Dezember 2016

• #1

Hallo.

Ich möchte gerne über VBA festlegen, dass alles immer auf eine Seite gedruckt wird.

Ich bekomme jedoch immer einen laufzeitfehler Nr. 438-

Code:

Sub anpassen()
With ActiveSheet.PageSetup
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
End With
End Sub

Kann mir jemand sagen wo der fehler ist?

 

W

Wes2000

Ensign

Registriert

Mai 2005

Beiträge

161

• 1. Dezember 2016

• #2

https://msdn.microsoft.com/de-de/library/office/ff194582.aspx

vielleicht dies nehmen und anpassen

 

H

Hassel16

Newbie

Registriert

Jan. 2016

Beiträge

3

• 1. Dezember 2016

• #3

Einfach so schreiben. Funktioniert zumindest bei mir

Code:

Sub anpassen()
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub

 

diamdomi

Admiral

Registriert

Mai 2009

Beiträge

7.450

• 1. Dezember 2016

• #4

Die Lösung von Hassel16 müsste funktionieren.

Momentan hättest du folgendes " ActiveSheet.PageSetup.PageSetup.FitToPagesWide = 1 "
Also den PageSetup vom PageSetup. Das ist eins zu viel

 

N

Nico_B

Lt. Junior Grade

Ersteller dieses Themas

Registriert

Sep. 2010

Beiträge

345

• 2. Dezember 2016

• #5

Guten Morgen.

leider macht Excel es nicht.

Steht weiterhin auf 100% und nicht auf Seite 1 breit und Seite 1 hoch

Datei ist auch als .xlsm abgespeichert.

 

H

Hassel16

Newbie

Registriert

Jan. 2016

Beiträge

3

• 4. Dezember 2016

• #6

Wie gesagt habe den Code (siehe oben) in Excel 2010, 2013 und 2016 getestet. Welche Version hast du denn ?
Er lief problemlos und funktionierte wie von dir gewünscht.
Ich habe es allerdings mit einer leeren Seite gemacht. Ob das etwas ändert, weiß ich allerdings nicht.