Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Mit Makro drucken , Ansicht anpassen

Forumthread: Mit Makro drucken , Ansicht anpassen

Mit Makro drucken , Ansicht anpassen
19.12.2006 12:31:20
chris
.PrintPreview
hallo Excelspezialisten,
wie bekomme ich Excel dazu das es mir mit VBA immer eine bestimmte anzahl von Spalten auf eine Seite druckt,
EGAL wie viele zeilen es sind.
Momentan habe ich es so:
Worksheets("test").Select
' Bereich Spalte 1 bis 51 drucken
lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.PageSetup.PrintArea = "$A$1:$AY$" & lz
ActiveWorkbook.ActiveSheet.PrintOut
Problem ist. Wenn ich z.B 400 Zeilen habe macht mir Excel die Seiten nur "halb" voll.
Also es drückt die Spalten 1 bis 51(darunter sind auch manchen ausgeblendet) auf eine halbe seite.
Wie kann man das mit Makro umgehen ?
danke schon mal frü eure Mühen !!
gruß Chris
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit Makro drucken , Ansicht anpassen
19.12.2006 13:55:00
haw
Hallo Chris,

Sub test()
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = False
End With
End Sub

Gruß Heinz
AW: Mit Makro drucken , Ansicht anpassen
19.12.2006 16:35:41
chris
Na das hilft mir aber glaube ich nicht...
Aber ich werde es morgen mal testen.
Danke erst mal.
Anzeige

Forumthreads zu verwandten Themen

Makro für kurzen Ablauf (Kopieren,Drucken)
Daniel

Hallo Forum, spiele jetzt ein bisschen mit VBA aber ich komme da auf fast keinen Zweig. Ich schaffs zwar, einem Makro einen Knopf zuzuweisen und evtl. auch noch Werte kopieren aber auch nur so wie ichs ergooglen kann.
Folgendes Problem:
Habe eine Exceldatei mit vielen Datenblättern. Mö...
04.06.2018 19:32:39
Thread-ID: 1627274
3 Beiträge
Userform drucken - komplett
chris

hallo VBA Profis,
ich habe ein Problem.
ich habe eine ziemloich große userform erstellt.
diese möchte ich drucken.
Das funktioniert aber leider nicht so wie ich es brauche.
und zwar ist das problem:
die userform ist ziemlich groß (height 700)
und ich bekomme sie nich...
17.12.2007 14:06:10
Thread-ID: 935410
7 Beiträge
Anzeige
Userform drucken
chris

Hallo liebe Forums user,
ich muss heute schon zum zweiten mal um hilfe bitten.
Habe diesen Thread heute schon einmal geöffnet aber keine Hilfe bekommen die mir weiter geholfen hat :(
Würde mich sehr freuen wenn mir einer helfen könnte.
Vielen dank schon im vorraus.
Hier die...
17.12.2007 19:22:26
Thread-ID: 935524
1 Beitrag
Druck der jeweils ersten 2 Spalten
TommiH

Hai,
ich knobel grade an folgendem Problem. Ich habe eine recht große Datei mit rund 60 Arbeitsblättern, die ich drucken möchte.
Nun ist aber in jedem Arbeitsblatt nur Spalte 1 und 2 relevant. Kann man das irgendwie mit einer Schleife hinbiegen, dass er alle Blätter durchgeht und jewei...
11.11.2008 17:42:00
Thread-ID: 1023610
3 Beiträge
VBA Ausdrucken
Hendrik

Hallo zusammen,
ich komme direkt zum Punkt. Mit diesem Code möchte ich nur eine bestimmte, zuvor aus einer _
TextBox ausgegebenen, Seitenzahl drucken. Sub Drucken_aufgezeichnet() Dim Seite As Long Seite = Me.TextBox_Ergebnis.Value Application.PrintOut , Pages:=Seite End Sub
Das...
17.07.2017 20:27:24
Thread-ID: 1569651
3 Beiträge
Hallo Druckspezialist - Querformat drucken via VBA
HaJo

Hallo zusammen,
ich habe folgendes Problem. Ich habe ein kleines Programm welches eine TextBox in einem UserForm ausdruckt.
Private Sub Drucken() Text = UF19_TextBox1 Worksheets("Druck").Select Worksheets("Druck").Cells(1, 1) = Text ActiveSheet.PrintOut copies:=1 End Sub
1. Wie ka...
08.06.2006 08:58:11
Thread-ID: 771142
4 Beiträge
Anzeige
Seite druckenm per VBA
PeTeR

Hallo VBA-Freaks,
meine Tabelle druckt 14 Seiten. Ich möchte per VBA nur die eine einzige Seite drucken, in der sich der Zellzeiger befindet. Woher weiß ich auf welcher Seite sich die activecell befindet?
Vielen Dank für eure Hilfe
PeTeR
06.07.2007 11:30:00
Thread-ID: 884539
2 Beiträge
mehrfachen Ausdruck eines Bereichs
Martin
Hallo zusammen,
in Tabelle1 habe ich eine Druckbereich, den ich über einen Button und Printdialog ausdrucke.
Mit einem Tastenkürzel möchte ich gerne einen zweiten Bereich drucken, ohne den Printbereich anzufassen.
Dies habe ich über PrintOut gelöst.
Sheets("Tabelle1").Range("A76:S132...
10.01.2022 16:51:41
Thread-ID: 1864802
2 Beiträge
Ausdrucker per VBA
KSMBln
Hallo,

Ich möchte eine Seite ausdrucken. Sie soll einen bestimmten Namen haben. Leider verstehe ich nicht warum "
Sub Drucken()

Slot = Tabelle_Schalthilfe.Range("Slot")
Tabelle_Schalthilfe.PrintOut printtofile:=True, prtofilename:="Schaltzettel_für_Slot_" & Slot
13.11.2025 15:26:09
Thread-ID: 2020918
4 Beiträge
Tabelle nach Filtern drucken
Zisa

Hallo zusammen,
ich moechte gerne ein Makro schreiben, das automatisch jeweils auf eine Seite das Arbeitsblatt fuer einen Filter druckt.
Momentan wiederholt sich der folgende Code fuer jeden Kunden. Da es aber moeglich sein soll, staendig neue Kunden hinzuzufuegen/umzubenennen ohne das...
19.11.2018 06:48:08
Thread-ID: 1658096
5 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.05.2026 12:45:17
VBA - ungewollte Zeitrechnung
18.05.2026 11:48:41
for each datei in dateiliste, Fehler 424:Objekt erforderlich
17.05.2026 19:23:24
VBA - Blattschutz lässt sich mit Code nicht ausschalten
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum