Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

"Shrink to fit" + Drucken

Forumthread: "Shrink to fit" + Drucken

"Shrink to fit" + Drucken
addi23
Hallo Zusammen,
hoffentlich könnt Ihr mir helfen. Ich muss täglich etliche Excel-Sheets bearbeiten und ausdrucken.
98% dieser Sheets können auf eine Seite (Landscape) angepasst und gedruckt werden.
Gibt es eine Möglichkeit, evtl. per Makro folgendes zu bewerkstelligen:
Ich markiere den Bereich aus dem Excel-Sheet und möchte dann...
1) den markierten Bereich auf eine Seite hoch und eine Seite breit - auf Landscape anpassen
2) direkt an den Standarddrucker senden.
Vielen Dank für Eure hilfe.
Gruß, addi23
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: "Shrink to fit" + Drucken
14.01.2011 14:12:30
Josef

Hallo Addi,
das geht so.

Sub ShrinkToFit()
  If TypeOf Selection Is Range Then
    With ActiveSheet
      With .PageSetup
        .PrintArea = Selection.Address
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
      End With
      .PrintOut
    End With
  End If
End Sub

Gruß Sepp

Anzeige
AW: "Shrink to fit" + Drucken
14.01.2011 14:28:14
addi23
Hallo Sepp,
vielen Dank schon mal für die schnelle Antwort.
Ich habe es getestet und das funktioniert! ;-))
Noch zwei kleine Fragen hätte ich - wie muss ich das Makro verändern, damit der Ausdruck oben am Blatt anfängt, also nicht zentriert wird?
Und noch ganz wichtig eine andere Frage: Kann man dieses Makro auch global für Excel aktiv setzen, nicht nur für das aktuelle Worksheet?
...dann wäre es für mich absolut optimal!
Vielen Dank.
Gruß, addi23
Anzeige
AW: "Shrink to fit" + Drucken
14.01.2011 14:39:48
Josef

Hallo Addi,
zu 1: 

.CenterVertically = False
zu 2: Speichere das Makro in deiner Makroarbeitsmappe (personal.xlsm), dann steht es dir immer zur Verfügung.
Wenn du keine "personal.xlsm" hast, dann Zeichne einfach ein Makro auf und wähle im Dialog "Persönliche Makroarbeitsmappe" aus. Das erstellte Makro kannst du dann löschen und deinen Code einfügen.

Gruß Sepp

Anzeige
AW: "Shrink to fit" + Drucken
14.01.2011 14:49:45
addi23
Hallo Sepp,
vielen Dank - super Support!
Viele Grüße, Addi
;

Forumthreads zu verwandten Themen

Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Anzeige
Druckt nicht alles markierte aus der Listbox
Lara

Hi Zusammen
Habe diesen Code in meiner Druckeruserform
Innerhalb einer Listbox markiere ich die einzelnen Blätter die ausgedruckt werden sollen.
Auch wenn ich mehrere markiere druckt er nur das erste markierte Sheet aus. Der Rest nicht.
Private Sub CommandButton1_Click() Dim v...
07.03.2009 13:54:31
Thread-ID: 1057616
7 Beiträge
Pivot wird nicht vollständig gedruckt?
u_hoernchen

Ich habe eine Pivot-Tabelle, in der Umbruchvorschau wird auch alles prima angezeigt, x Seiten, Druckbereich etc. Aber wenn ich dann auf Seitenansicht gehe, zeigt er mir nur die ersten 2 Seiten und druckt auch nicht mehr. Ich bin echt überfragt, was ich falsch mache... kann mir jemand helfen?
04.02.2010 11:39:38
Thread-ID: 1135681
4 Beiträge
Führende Null wird nicht gedruckt
Josef

Hallo!
Mit unten stehendem Makro wird der Inhalte einer ListBox1 in einer UF in ein neues Tabellenblatt kopiert und ausgedruckt.
In der zweiten Spalte in der ListBox1 stehen zweistellige Zahlen und zwar mit einer führenden Null.
Beim Ausdruck erhalte ich jedoch nur eine einstellige...
12.02.2010 07:51:01
Thread-ID: 1137948
3 Beiträge
ShrinkToFit in Makro
TommiH

Hallo,
kann mir jemand sagen wo es bei dem Befehl in einem Makro 'zwickt'? Es kommt ein Laufzeitfehler und 'Objekt' erfodrerlich...
Rows(y).VerticalAlignment.ShrinkToFit = True
Eigentlich sollte doch in der Zeile y einfach jeder Text der nicht in eine Zelle passt an diese größenmäss...
20.05.2010 10:44:10
Thread-ID: 1157994
5 Beiträge
Anzeige
€-Zeichen wird nicht gedruckt Word- Excel Tabelle
Dieter

Hallo zusammen,
folgendes Phänomen:
Drucken Eurozeichen in Word = ok
Drucken Eurozeichen in Excel = ok Drucken Eurozeichen in ein Excel-Tabelle die in einem Word-Dokument liegt = no go Was kann man da tun?
03.05.2002 14:08:29
Thread-ID: 118236
2 Beiträge
Anzeige
Zeilen und Spaltenbezeichn werden nicht gedruckt
j.kanuff

Hallo zusammen,
seitdem ich die Office-Reparatur ausgeführt habe
werden die Zeilen und Spalten-Bezeichnungen nicht mehr mit ausgedruckt.
wo kann ich das Einstellen?
ich habe nichts in den Excel-Optionen gefunden.
Gruß
Jürgen
29.03.2011 16:19:42
Thread-ID: 1208166
2 Beiträge
Zellen mit bestimmten wert nicht drucken
Linus

Hallo,
ich habe ein tabelle erstellt und möchte diese gerne ausdrucken. beim ausdruck soll die tabelle, falls zB in A1 den Inhalt "Hase" oder "Hund" den wert nicht mitausdrucken sondern die Zelle einfach farblich hinterlegen...
bisher sieht mein macro so aus: Sub drucken() ST_DRUCKER =...
26.11.2012 21:05:25
Thread-ID: 1288161
4 Beiträge
Farbige Zelle nicht drucken
Ernst

Guten MorgenIch möchte eine Zelle makieren z.B. farbig, diese Makierung bzw. Farbe soll aber nicht mit gedruckt werden. Der Inhalt aber schon.
Gibt es eine einfache Lösung?Besten Dank im vorrausErnst
03.07.2002 07:05:03
Thread-ID: 133253
2 Beiträge
Anzeige
Zweite Seite wird nicht gedruckt !
Ingo

Hallo Leute,
ich möchte die erste Seite im Querformat und alle anderen Seiten im Hochformat drucken.Dafür benutze ich folgendes Makro, Sub Drucken()
With ActiveSheet
.PageSetup.Orientation = xlLandscape
.PrintOut From:=1, To:=1
.PageSetup.Orientation = xlPortrait
.PrintOu...
06.07.2002 08:40:47
Thread-ID: 134345
5 Beiträge
Zellen nicht drucken
Frank Reinauer

möchte bestimmte Zellen in einer Tabelle nicht drucken sollten aber am Bildschirm dargestellt sein.

24.07.2002 10:50:22
Thread-ID: 139822
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige