Variabler Bereich einer Tabelle im Sheet drucken
01.06.2009 16:12:42
B4u
in einer Pivotabelle habe ich ein Button, der ein Markro ansteuert, welches den Print-Dialog aufruft.
Code:
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PageSetup.PrintArea = False
End Sub
Mit diesem Sub wird das gesamte Workbook ausgedruckt. Das ist ja nicht Sinn der Sache.
Es soll nur das Worksheet ausgedruckt werden.
Ideal wäre es natürlich, zuvor den belegten Bereich der Tabelle auszulesen und diesen zu drucken. Der belegte Bereich ändert sich durch die PivotTabelle.
Hat jemand einen Tipp