Druckbereich festlegen
02.10.2003 12:40:36
Erich M.
Hallo zusammen,
habe ein makro mit dem ein flexibler Druckbereich ermittelt wird.
Dabei wird in Spalte 2 die letzte gefüllte Zelle gesucht.
Nun benötige ich noch die einschränkung, dass nur die zeilen
gedruckt werden, bei denen in der Spalte 3 ab Zeile 8 die Zelle
gefüllt ist.
Mein nachstehender Versuch ist gescheitert:
Sub Dr_Übersicht()
Dim intEndRow As Integer
Dim Lz As Integer
Dim DAT2 As Variant
Dim sDate As String, sPrint As String
sDate = Format(Date, "dd. mm. yyyy")
sPrint = "&""Arial,Fett""&14Bitte beachten: ! &""Arial,Standard""&10 "
With ActiveSheet.PageSetup
.LeftHeader = "Ausdruck am: " & sDate
.CenterHeader = "Datei: &F" & Chr(13) & sPrint
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Seite &P von &N Seiten"
.RightFooter = ""
End With
Sheets("Erfassung").Select
endrow = Cells(Cells.Rows.Count, 2).End(xlUp).Row 'Letzte Zeile mit Inhalt
Cells(endrow, 2).Select
Lz = InputBox("Ausdruck bis Zeile:")
' endrow = Cells(Cells.Rows.Count, 2).End(xlUp).Row 'Letzte Zeile mit Inhalt
If Cells(Cells.Rows.Count, 3) = "" Then
Range("n8:T" & Lz).Select
Selection.PrintOut Copies:=1, Collate:=True
Range("n8").Select
End If
End Sub
Besten Dank für eine Hilfe!
mfg
Erich