AW: Automatisch vergrößern und verkleinern
30.03.2009 14:00:42
Ralf
Hallo Rainer,
vielen Dank für Deine schnelle Antwort. Das automatische Aufzeichnen mit
dem VBA - Recorder habe ich versucht, aber mein Problem liegt woanders :-)
Der unten stehenden Code läuft sehr gut, nur halt mit dem beschriebenen Problem,
und ich weiß leider nicht, wo ich das Aufgezeichnete einfügen muß :-(
Private Sub CommandButton1_Click()
'Public rBereich As Range
'Sub PrintAktuelleSeite()
Dim A As Long
For A = 5 To 20000
If Cells(A, 1) = "x" Then
If rBereich Is Nothing Then
Set rBereich = Range(Cells(A, 1), Cells(A, 26))
Else
Set rBereich = Union(rBereich, Range(Cells(A, 1), Cells(A, 26)))
End If
End If
Next A
If Not rBereich Is Nothing Then
rBereich.Interior.ColorIndex = 3
rBereich.EntireRow.Hidden = True
Application.OnTime Now + TimeSerial(0, 0, 2), "EreignisNachPrint"
'nach 2 Sekunden wird das Makro EreignisNachPrint aktiviert :-)
End If
ActiveSheet.PrintOut 'Seite drucken
End Sub
Sub EreignisNachPrint()
rBereich.EntireRow.Hidden = False
Set rBereich = Nothing
Viele Grüße
Ralf