Gruppe
Druck
Problem
Wie kann ich den Druckbereich so festlegen, daß er den Bereich des aktiven Tabellenblattes nur bis zum ersten Nullwert in Spalte A umfaßt?
StandardModule: basMain
Sub DruckBereichFestlegen()
Dim iRow As Integer
iRow = 1
Do Until Cells(iRow + 1, 1).Value = 0
iRow = iRow + 1
Loop
Worksheets("Tabelle1").PageSetup.PrintArea = _
ActiveSheet.Name & "!" & _
Range(Cells(1, 1), Cells(iRow, 11)).Address
ActiveSheet.PrintPreview
End Sub