Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
584to588
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckprobleme

Druckprobleme
18.03.2005 04:47:37
Werner
Hallo EXCEL-Fans, ich benötige mal wieder fachmännische Hilfe.
In einer Tabelle werden im Laufe des Tages in zwei Spalten Daten eingegeben, in anderen Spalten werden damit Berechnungen ausgeführt. Es werden so bis zu 300 Zeilen täglich. Am Ende des Tages benötige ich einen Ausdruck. Wie kann ich den Ausddruck (per Makro) so einrichten, dass nur bis zur letzten gefüllten Zeile der Spalten C und F gedruckt wird. Das Makro sollte also prüfen, in welcher der beiden Spalten mehr Daten stehen und die Ausdrcklänge danach ausrichten. Da die Tabelle für bis zu 1000 Zeilen vorbereitet (formatiert) ist, werden im Moment viele leere Seiten ausgedruckt.
Außerdem sollen die ersten 5 Zeilen der Tabelle nicht mit ausgedruckt werden, die 6. und 7. Zeile der Tabelle (Überschriften) sollen jedoch auf jeder Seite über den Werten stehen (es wäre schön, wenn zwischen den Überschriften und den Werten ein kleiner Zwischenraum wäre).
Herzlichen Dank im Voraus
Werner

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckprobleme
18.03.2005 07:09:53
Ramses
Hallo
probier das mal aus
Option Explicit

Sub Print_DataArea()
Dim lR1 As Long, lR2 As Long, lR As Long
Dim cC1 As Byte, cC2 As Byte
Dim i As Long
'cc1 = C, cc2 = f
cC1 = 3
cC2 = 6
'Letzen Eintrag in Spalte C
For i = 6 To Cells(65536, cC1).End(xlUp).Row
If Cells(i, cC1) = "" Then
lR1 = i
Exit For
End If
Next i
'Letzen Eintrag in Spalte f
For i = 6 To Cells(65536, cC2).End(xlUp).Row
If Cells(i, cC2) = "" Then
lR2 = i
Exit For
End If
Next i
If lR1 > lR2 Then
lR = lR1
Else
lR = lR2
End If
With ActiveSheet.PageSetup
.PrintTitleRows = "$5:$6"
.PrintArea = "$A$5:$D$" & lR
End With
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = ""
End Sub

Gruss Rainer
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige