Hallo!
Ich möchte den nicht benötigten Tabellenbeich ausblenden. Das realisiere ich mit folgendem Code:
Dim WsTab As Worksheet

For Each WsTab In Worksheets

With WsTab
.Rows(.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 & ":65536").EntireRow.Hidden = True
.Range(.Cells(1, .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1), .Cells(65536, 256)).EntireColumn.Hidden = True

End With

Next WsTab
Mein Problem ist, daß der rechte und untere Rahmen der Tabelle nun ebenfalls ausgeblendet ist und nicht mehr mit gedruckt wird. Hat da jemand eine Idee?
Danke
Micha