Roncancio
Meubilair
- Lid geworden
- 24 mei 2005
- Berichten
- 8.257
Code:
Private Sub Cmd_Print_Click()
ActiveSheet.PrintOut
If Application.Wait(Now + TimeValue("0:00:10")) Then
Range("Witlaten").Interior.Color = vbYellow
Range("Witlaten").Font.Color = vbBlack
End If
End Sub
Met vriendelijke groet,
Roncancio