inhoud msgbox printen

[Spiesse]

forumisten over the world

graag had ik geweten of er een mogelijkheid bestaat om de resultaten van een msgbox te printen dmv van een cmdbutton (die eventueel meeverschijnt in de msgbox...

deze code bekijkt enkele voorwaarden in mijn bestand en zet de resultaten in een msgbox.

Private Sub cmbControle_Click()
'For Each cell In Range("f2:f3000")
Dim i As Integer
    For i = 2 To 3000
        If CDate(Range("f" & i).Value) >= Date And CDate(Range("c" & i).Value) <= Date Then
        'If cell.Value >= Date Then '+ 1 And cell.Value < Date + 7 Then
            sTekst = sTekst & vbCr & ("  -  tot en met ") & Range("g" & i).Text & ("  -  ") & Range("a" & i).Value & ("  -  " & Range("B" & i).Value) & ("  !") & vbCr
        End If
    Next
    MsgBox "LET OP!!! Volgende WN's staan op dop: " & vbCr & sTekst

End Sub

nu vraag ik me af of er een mogelijkheid bestaat om deze, na klik op een cmdbutton, te printen...

groeten,
spiesse