Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verkehrt herum Drucken

Forumthread: Verkehrt herum Drucken

Verkehrt herum Drucken
14.01.2004 15:12:40
Stefan Glander
Hallo Excelanier,
ich habe auf mehreren Tabellenblättern Daten stehen.
Die Grundstruktur der Blätter ist immer gleich.
Das Problem ist nun folgendes: Im Bereich "A1:M6" steht der Teil "A" der Tabelle. Im Bereich "A8" bis "A verschieden" der Teil "B". Da Teil "B" immer einer unterschiedliche Länge hat kann ich diesen Bereich nicht genau definieren.
Wie kann ich nun erreichen das erst Teil "B" gedruckt wird und daran mit einer Leerzeile folgend Teil "A" gedrückt wird
Gruss
Stefan Glander
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Verkehrt herum Drucken
14.01.2004 16:02:18
IngoG
Hallo Stefan,
Vielleicht hilft Dir folgende 

Sub weiter:


Sub druckbereich_festlegen()
'  Macro zum Festlegen des Druckbereiches im aktiven Blatt
'  Erstellt von I. Geusen
'  zuletzt geändert am 17.02.2003
Dim zelle As Object
Dim maxzeile, maxspalte As Integer
Dim screenupdate As Boolean
If ActiveSheet.Type <> xlWorksheet Then
maxzeile = MsgBox("  Aktives Blatt ist keine Tabelle", _
vbOK, "Fehler-Duckbereich festlegen")
ElseIf MsgBox("   Soll der Druckbereich wirklich auf" & Chr(13) & _
" max. genutzten Bereich gesetzt werden?" & Chr(13) & _
"       (Rückgängig nicht möglich!)", _
vbYesNo, "Duckbereich festlegen") = vbYes Then
screenupdate = Application.ScreenUpdating
Application.ScreenUpdating = False
maxzeile = 1
maxspalte = 1
For Each zelle In ActiveSheet.UsedRange
If zelle.Value <> "" And zelle.Row > maxzeile Then
maxzeile = zelle.Row
End If
If zelle.Value <> "" And zelle.Column > maxspalte Then
maxspalte = zelle.Column
End If
Next
On Error Resume Next
ActiveSheet.PageSetup.PrintArea = "a1:" & ActiveSheet.Cells(maxzeile, maxspalte).Address
Application.ScreenUpdating = screenupdate
End If
End Sub



im Moment mußt Du zwar das macro vor dem Drucken anstossen, kann man aber evt ja einbauen in ein ereignisgesteuertes macro

Gruß Ingo

PS eine Rückmeldung wäre nett...
Anzeige
AW: Verkehrt herum Drucken ( NOCH OFFEN )
14.01.2004 16:17:45
Stefan Glander
Hallo Ingo,
danke Dir für Deine Hilfe, aber es ist nicht das was ich suche. Erst soll unten gedruckt werden und dann der Bereich oben.
Gruss
Stefan Glander
;

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