Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

"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

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
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

80 Forumthreads zu ähnlichen Themen

Textfeld wird nicht komplett gedruck
Peter

Hallo Leute,
folgendes Problem tritt bei mir auf: ich habe auf einem Tabellenblatt ein relativ großes Textfeld. Dieses geht nicht über die von Excel angezeigten Seitenränder hinaus. Trotzdem wird nicht alles gedruckt. Andere Grafiken, wie näher am Rand sind, werden aber gedruckt. Das was vo...
25.08.2008 14:08:02
Thread-ID: 1004450
4 Beiträge
Anzeige
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
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
Anzeige
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
€-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
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
Einzelne Zellen NICHT ausdrucken
Heinrichs

Hallo zusammen,
ich weiß, dass mein Problem eine ziemliche Zweckentfremdung von EXCEL darstellt und ich vermutlich an andere Programme verwiesen werde - vielleicht kann mir trotzdem jemand helfen, da ich von den Vorteilen von EXCEL unbedingt profitieren möchte.
Ich möchte über EXCEL Et...
16.07.2012 16:06:28
Thread-ID: 1271327
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
3
6
3
2
4
1
1
3
3
8
1
4
2
5
5
1
2
2
5
5
2
8
12