Druckprobleme 2
11.02.2005 22:48:41
Heike
Habe den VBA-Code von Uwe ausprobiert. Es klappt soweit, nur werden die Zeilen, die in der zu untersuchenden Zelle einen Werte ungleich Null haben im orginal Abstand wie auf der Tabelle ausgedruckt. D.h. Zischen den Zeilen auf dem Ausdruck ist zuviel Zwischenraum. Ich benötige aber alle Druck-Zeilen direkt untereinander auf dem Ausdruck (Platzgründe und Übersichtlichkeit, da die Tabelle recht groß werden kann)
Ich habe im Code etwas herum gespielt und Clear durch Delete ersetzt. Dies bringt aber nur einen Teilerfolg, denn es werden jetzt auch einzelne Zeilen ausgedruckt, die in der zu untersuchenden Zelle gleich Null sind!
Des weiteren ist noch ein weiteres Problem aufgetaucht:
Ich muß mehrere (bis zu 4) Zellen je Zeile auf einen Wert ungleich Null untersuchen und diese dann ausdrucken. Es kann dabei vorkommen, daß eine, oder auch mehrere Zellen je Zeile gleichzeitig ungleich Null sind ! Diese Zeilen sollen dann auch gedruckt werden
Hier noch malden VBA-Code von Uwe:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim TB, TN, Sp, I%, LR%
Cancel = True
Application.ScreenUpdating = False
Set TB = ActiveSheet
Sp = 3 'Spalte C soll untersucht werden
LR = TB.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
TB.Copy After:=TB
ActiveSheet.Name = "TempCopy"
Set TN = ActiveSheet
For I = 1 To LR
If TB.Cells(I, Sp).Value = 0 Then
TB.Rows(I).Clear
End If
Next
Application.EnableEvents = False
TB.PrintOut
Application.EnableEvents = True
TN.Cells.Copy TB.Cells
Application.DisplayAlerts = False
TN.Delete
Application.DisplayAlerts = True
TB.Activate
Application.ScreenUpdating = False
End Sub
Vielen Dank
Heike
P.S. Kann mir jemand Literatur für VBA-Anfänger empfehlen?