Mit VBA Seitengröße einstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Thorsten,
zu a): Ich habe per VBA für jedes Tabellenblatt einen anderen Druckbereich definiert. Das klappt auch...
Dann muß ich aber jedes Tabellenblatt einzeln öffnen, Unter "Layout" - Seite einrichten - Größe - Seite einrichten - Papierformat -Optionen - Papierformat, dann mein definiertes Papierformat heraussuchen, ok - ok FERTIG. und DAS FÜR JEDES TABELLENBLATT!!!!
Anschließend werden die Tabellenblätter einzeln (Nur der Druckbereich im jeweiligen Papierformat) als PDF gespeichert. Und dann irgendwann gedruckt. Die "Druckeinstellungen bleiben bis zum Schließen der Tabelle erhalten. Beim erneuten öffnen muss ich wieder alles neu eingeben.
Der Umweg über PDF deshalb, damit ich die entstandenen Dateien im Büro ausdrucken kann, (Schont meinen Drucker und meine Farbe ;)) der dortige Rechner hat Linux und Libre Office, da laufen meine Tabellen nicht.
zu b) an einer Stelle im Code steht: .PaperSize = xlPaperA4 das kann man aber leider nicht ändern. Oder doch? Ich hab's nicht hinbekommen, weder mit dem "Namen" des definierten Papierformats, noch mit Größenangaben (mm hoch, mm breit).
Hier ist der gesamte aufgezeichnete Code:

Sub Papierformat()
' Papierformat Makro
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = -4
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.zoom = 100
End With
End Sub

Ich sage schon mal lieben dank für Deine Mühe! Hoffentlich findest Du etwas, was mir weiterhilft...
Ach, ich sollte vielleicht noch erwähnen, daß ich Excel 2011 (Mac-Version :((( ) benutze. Da klappt ganz vieles nicht, was auf Windows Rechnern läuft.
Liebe Grüße
Kerstin

Hallo Kerstin,
gundsätzlich funktioniert es per VBA auch von A4 verschiedene Papiergrößen per Makro festzulegen.
Die Werte sind dann oft reine Zahlen. z.B.

        .PaperSize = 189 '10 x 15 cm

Dies ist aber von den Möglichkeiten des jeweils aktiven Druckers abhängig.
Wenn möglich, dann solltest du den Druckertreiber des Druckers mit dem du im Büro die PDFs drucken willst auf deinem Heimrechner installieren.
Keine Ahnung ob das so einfach möglich ist.
Auf deinem Heimrechner musst du dann in Excel immer erst diesen Drucker zum aktiven Drucker machen, bevor du die Datei öffnest.
Dann sollten auch deine Sonderformate erhalten bleiben.
Auf jeden Fall sollte es funktionieren per Makro den passenden Drucker zu wählen, die Formate der einzelnen Tabellenblätter per Makro anzupassen und dann per Makro die Blätter als PDF-Datei zu speichern.
Um den Wert für die Papersize zu bekommen musst du per Makrorekorder das Ändern der Seiteneinstellungen aufzeichnen.
LG
Franz

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit VBA Seitengröße einstellen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread