Ok, om je op weg te helpen, de code die je kan gebruiken voor de 'print' knop op je formulier:
Visual Basic .NET:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Private Sub cmdPrint_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acListBox Or stl.ControlType = acTextBox Or ctl.ControlType = acListBox Then ctl.BorderColor = RGB(0, 0, 0)
Next ctl
DoCmd.PrintOut
For Each ctl In Me.Controls
If ctl.ControlType = acListBox Or stl.ControlType = acTextBox Or ctl.ControlType = acListBox Then ctl.BorderColor = RGB(255, 255, 255)
Next ctl
End Sub |
(eigenlijk is dit alles, maar misschien wil je de control types wat uitbreiden en de kleuren een beetje aanpassen....)
The process of preparing programs for a digital computer is especially attractive, not only because it can be economically and scientifically rewarding, but also because it is an aesthetic experience much like composing poetry or music.