Druckprobleme

Bild

Betrifft: Druckprobleme von: Werner
Geschrieben am: 18.03.2005 04:47:37

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

Bild


Betrifft: AW: Druckprobleme von: Ramses
Geschrieben am: 18.03.2005 07:09:53

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


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Anzahl _unterschiedlicher_ Text-Ausprägungen"