Markieren des Druckbereichs
07.02.2004 17:43:24
Hans-Werner Schmidt
ich möchte in einer Datenbank,deren sichtbare Zeilen sich durch Abfragen ändern den Druckbereich von A1 bis zur letzten ausgefüllten Zeile und Reihe!! markieren. Wie muss ich folgendes Makro ändern, da es sich nur auf A1 bis Q1 bezieht?
.
Sub Drucken()
'Druckt von A1:Q bis zur letzten beschriebenen Reihe
Dim intRow As Integer, intTmp As Integer
For intRow = 1 To 4
If Cells(Rows.Count, intRow).End(xlUp).Row > intTmp Then
intTmp = Cells(Rows.Count, intRow).End(xlUp).Row
End If
Next intRow
ActiveSheet.PageSetup.PrintArea = Range("A1:Q" & intTmp).Address
ActiveSheet.PrintPreview
End Sub
.
für die Excelexperten wohl keine Herausforderung.
Tschüs Werner Schmidt
Anzeige