Ich habe leider wieder mal ein Problem.Ich habe einen Sheet als Vorlage diesen habe ich auch so angepaßt das die Seite mir richtig gedruckt wird (so wie ich es möchte).Nun kommen aber jeden Monat 5 oder 6 Sheets dazu (per Macro).Bei diesen paßt aber die Einstellungen nicht mehr kann mir einer weiterhelfen wie ich das anstellen müßte das immer die gleichen Druckeinstellungen auf allen Sheets gleich sind ohne für jedes einzelne einzustellen?
Dieses habe ich bis jetzt:
Sub Druckbereich()
Dim blatt As Integer
Dim Sheet As Sheets
For blatt = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(blatt).PageSetup.PrintArea = "$A$1:$AJ$48"
ActiveWorkbook.Sheets(blatt).PageSetup.Orientation = xlLandscape
Next blatt
End Sub
was mir nun noch fehlt ist die Seiten einrichtung.
Skalierung 1 hoch 1 breit
Seitenränder oben und unten 1,5
Seitenränder links und rechts 1,0
Zentrieren beides ja
hätte da einer Rat für mich komme leider nicht weiter.
Gruß Rene