Bitte nehmt euch die Zeit das zu lesen…danke…
Es geht darum in einer Excel Tabelle den Durkcberiech individuell festzulegen. Die Tabelle hat 5 Seiten die auf DIN A 3 ausgedruckt werden. die erste Spalte sowie die erste Zeile sind festgesetzt. Der rechte Rand ist auf 0,9 cm breite festgelegt und genau da sollen die Tabellen auch enden. Die ersten drei Seiten sind gleich breit, die letzten beiden Seiten sind kürzer.
Wie kann ich nun die Druckbereiche für jede Seite festlegen ohne dass ich jedesmal wieder die festegesetzte erste Spalte verändern muss?
Ich freue mich auf eine Antwort
Moin, Excelmania,
ich kenne nur eine Möglichkeit: Datei > Druckbereich festlegen. Zweckmäßigerweise markiert man vorher den Bereich, der gedruckt werden soll. Ganz individuell 
Wie kann ich nun die Druckbereiche für jede Seite festlegen
Gewünschte Bereiche markieren, nacheinander mit STRG + Markierung.
ohne dass ich jedesmal wieder die festegesetzte erste Spalte
verändern muss?
???
Gruß Ralf
Hallo Ralf,
vielen dank für deine antwort. So hatte ich das auch sschon rausgefunden.
Es ist bei dieser Tabelle nur so, dass die festgesetzte erste Spalte bei den ersten 3 Seiten 46p breit ist und bei den letzten 3 seiten auf 48p verbreitert werden muss…leider lässt sich das nicht so mit den Druckbereichen festlegen, also das sich die erste Spalte beim Druck automatisch verbreitert…
inzwischen habe ich gehört, das man für sowas auch sogenannte Makros schreiben kann, aber davon verstehe ich absolut gar nichts…
lg
Excelmania
Es ist bei dieser Tabelle nur so, dass die festgesetzte erste
Spalte bei den ersten 3 Seiten 46p breit ist und bei den
letzten 3 seiten auf 48p verbreitert werden muss…leider
lässt sich das nicht so mit den Druckbereichen festlegen, also
das sich die erste Spalte beim Druck automatisch
verbreitert…
Hallo EM,
Alt+F11, Einfügen—Modul, Code reinkopieren, Editor schließen.
Start mit Alt+F8, „Druck“ Ausführen…
Sub Druck()
Columns("A:A").ColumnWidth = 46
Worksheets("Tabelle1").PageSetup.PrintArea = "A:E" 'Druckbereich
Worksheets("Tabelle1").PageSetup.Orientation = xlLandscape 'Querformat
Worksheets("Tabelle1").PrintOut From:=1, To:=3, Copies:=1, Collate:=True
Columns("A:A").ColumnWidth = 48
Worksheets("Tabelle1").PrintOut From:=4, To:=5, Copies:=1, Collate:=True
Worksheets("Tabelle1").PageSetup.Orientation = xlPortrait 'Hochformat
End Sub
Gruß
Reinhard
Hallo Reinhard,
vielen Dank für deine Hilfe. Es hat zwar nicht geklappt, da die Excel Tabelle wohl doch ein wenig zu groß ist, aber nun haben wir ja schon mal einen Anfang, womit wir arbeiten können…
lg
Excelmania
Es hat zwar nicht geklappt, da
die Excel Tabelle wohl doch ein wenig zu groß ist,
Hallo Excelmania,
was heißt nicht geklappt? Der Drucker abgequalmt, die Festplatte zerstört oder was genau geschah?
In welcher Art zu groß? Hat das makro die Fehlermeldung gebracht, zuviele Bytes in der Mappe?
Oder sind die 5 Spalten zu groß=breit für einen Ausdruck?
Beispielmappe hochladen mit rapidshare o.ä. ( FAQ:2606 ), falls hilfreich.
Gruß
Reinhard
Hallo Reinhard,
die Tabelle ist sehr viel größer als nur 5 Spalten…sie besteht ausgedruckt aus 5 DINA 3 Seiten…die Tabelle ist inzwischen schon gedruckt und verschickt, von daher ist alles ok…
Noch mal vielen Dank für deine Hilfe.
lg
Excelmania