---

Hi,
ich habe eine Übersicht gemacht und drum rum einen Druckbereich festgelegt. Beim drucken habe ich gesehn, dass die Tabelle viel zu groß ist und auf 4 Blätter aufgeteilt worden ist. Da habe ich dann bei Skalierung "Anpassen" und "1 Seite breit"und "1 Seite hoch" ausgewählt. Jetzt ist aber die Tabelle so klein dass fast nix mehr lesen kannst. Was ist dann, frag ich mich, Anpassen wenn noch so viel Platz auf dem Papier ist? JA, ich weiss wenn ich bei Verkleinern/Vergrößern z.B. auf 140% gehe, dass die Tabelle das Blatt ausfüllt aber das sollte es doch beim Anpassen machen oder nicht?

Danke mal

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

-Druckbereich nur auf den wirklichen Druckbereich festlegen
-Seitenränder reduzieren
-Seite quer drehen
-Tabelle entschlacken, Zeilenumbrüche nutzen
-A3-Drucker kaufen 

"Anpassen" skaliert die Seite unter Beibehaltung des Seitenverhältnisses  und unter Berücksichtigung der Seitenränder. Zaubern kann Excel nicht!

------------------
Patrick

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Definition im Blatt
Druckbereich definierten
zur Umbruchvoschau wechseln
Horizontal oder Vertikal verschieben um 'auf eine Seite zu definieren*
Beides ist oftmal nicht sinnvoll möglich.

Definition über Druckauswahl:
Ansonsten
1 Alle Spalten auf einer Seite darstellen
oder
2 bei Benutzerskalierter Anpassung // 1 Seite(n) breit // Seiten(n) hoch leer lassen (wobei wegen 1 überflüssig ;-))

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

zaubern soll Excel auch nicht, aber ich kenne es von anderen Softwares. Dort kann man im Druckbereich "An Seitengröße anpassen" auswählen und fertig. Bei Excel mußt immer skalieren, dann schauen und wenns nicht passt wieder zurück und skalieren - zu aufwendig. Und noch was - wenn ich schreibe dass ich einen Druckbereich festgelegt hab, dann markiere ich auch nur das was ich brauche und net noch 5 leere Spalten dazu.

Vielen DANK  ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Habe ja keine Ahnung von welcher Version gesprochen wurde, aber Druckbereich festlegen
und "Blatt auf einer Seite darstellen" in 2016 funktioniert tadellos.

Ich selbst kann mich auch nicht erinnern in älteren Verionen Probleme gehabt zu haben.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

anpassen.jpg vonHandangepasst.jpg

Also,
anbei 2 Beispiele. Die Datei anpassen.jpg = so siehts aus wenn ich auf Anpassen klicke und das 2. Beispiel ist wenn ich von Hand die Größe anpasse.
Ich dachte halt, wenn ich auf anpassen klicke, dann wird das ausgewählte im Druckbereich auf das Blatt angepasst

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ohne die Exceldatei ist das nur Rätselraten...
Inhalte durch Dummytexte ersetzen und mal hochladen...

------------------
Viele Grüße Lutz

Glück Auf!  

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

UbersichtOP50.zip

wozu Dummytext - ist nicht Streng geheim und aussenstehende können nix mit anfangen  ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Einpassen.png

Excel bietet auch Standardmässig kein automatisches Vergrössern an :-)

Nun kann man streiten ob es sinnvoll wäre :-)

Abhilfe
- Makro schreiben
- Oder die Schrift & Zeilen soweit vergössern, das Excel einpassen kann :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Dir - Makro schreiben kann ich nicht - leider -

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von röhmler:
Danke Dir - Makro schreiben kann ich nicht - leider -

---

Dann lerne es! :-)

Zeit genug hättest du ja gehabt. http://ww3.cad.de/foren/ubb/Forum226/HTML/001686.shtml#000009

Was brauche ich
-Spaltenbreite
-Formel Skalierung
-Druckbefehle

Alles was man mit google & c & p in 15 - 30 Minuten finden kann

Code:

---

Sub SeiteEinrichten()

For sp = 1 To 3
Col = 0
Col = Columns(sp).ColumnWidth * 2
Gesamt = Gesamt + Col
Next sp
Breite = 200
Skalierung = (Breite / Gesamt) * 100

With ActiveSheet
    .Activate
    lView = Application.ActiveWindow.View
    .ResetAllPageBreaks 'Alle vorhandenen festen Seitenwechsel löschen
        With .PageSetup
            .PrintArea = "A1:C" & Range("C" & Rows.Count).End(xlUp).Row
            .Zoom = Skalierung
        End With
    .PrintOut
End With

End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Stueckliste.txt

Guten Morgen,

funktioniert bestens. Ich muß zugeben, hatte 3 Tage einen Makro Kurs, aber irgendwie war das zu schnell für mich. Was ich kann, Makro`s aufzeichnen und bearbeiten aber auch nur die einfachen Dinge. ICH BLICKS HALT NICHT, sorry.
Könnte ich mich hier im Büro damit beschäftigen jeden Tag würde ich bestimmt besser werden, aber privat dass zu machen sehe ich nicht ein.
DANKE

P.s Falls es Dich interessiert - im Anhang mein Makro dass ich selber gemacht hab.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP