ich habe da mal eine Frage zur Papierformatauswahl via VBA. Ich wollte mit nachfolgendem VBA Code das richtige Papierformat automatisch setzen lassen.
With Workbooks("Rechnung.xls").Sheets("Briefumschlag")
.PageSetup.PaperSize = 148
.PrintPreview False
End With
Welche Zahl hinter dem Befehl .PageSetup.PaperSize einzusetzen ist, habe ich durch den Makrorekorder herausgefunden. Nun habe ich aber das Problem, dass auf einem anderen PC diese Nummer einem anderen Papierformat entspricht. Ich dachte mir, eventuell funktioniert es ja, wenn ich den Klartext, also den Text, der mir nach der Auswahl in dem Papierformatauswahlfeld angezeigt wird, anstelle der Zahl angebe. Ich habe also anstelle der Zahl 148 den Text "Brief A5 Excel(114x161mm)" angegeben, denn der wird mir nach der Auswahl angezeigt. Leider funktioniert das so nicht, es kommt zu einem Laufzeitfehler. Daher nun meine Frage, wie kann ich dieses benutzerdefinierte Format auf jedem Rechner, auf dem die Datei ausgeführt werden soll, automatisch auswählen lassen? Hat da jemand eine Idee oder funktioniert das nicht?
Ich hoffe, jemand kann mir da weiterhelfen?
Vorab besten Dank für die Hilfe,
Oliver S.