Date selection will not print properly when using Microsoft Date and Time Picker Control 6.0 in Excel 2010

Question

I have created a field input worksheet in which the user identifies start and end dates for training sessions, using the Date and Time Picker Active X Control.  It works fine on-screen, but when the worksheets are printed, the dates that were selected
using the date picker calendar print out in an unreadable, huge font.  The large font also appears in the print preview mode.  I've tried modifying various properties in design mode, but nothing that I have tried will correct the problem. 
Any ideas?

Answer 1

The DTPicker seems to have some bugs in it when used on a worksheet. I have overcome the above by setting the size properties to the same size as a cell and the Linked cell property to the
cell under the DTPicker. (Even setting the Linked cell had problems with an error message referring to the Check box property to be set to true so I just set it to true and inserted the linked cell and set the checkbox property back to
false.)
Then the VBA code below that Hides the DTPicker after a date is selected and unhides the DTPicker when the linked cell with the date is selected. The code is for 2 DTPickers so you will need to edit to suit your requirements.
Caveat: If the DTPicker is visible then you can't hide it by selecting the same date again. If this occurs then it is a multi step operation. First select another date and the DTPicker will hide, then click on another cell then back on the cell with
the date to unhide the DTPicker and then select the correct date.
Hope it helps and feel free to get back to me with any questions etc.
Private Sub DTPicker1_Change()
    Me.DTPicker1.Visible = False
End Sub
Private Sub DTPicker2_Change()
    Me.DTPicker2.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address
        Case "$E$5"     'This is the linked cell for DTPicker1
            Me.DTPicker1.Visible = True
        Case "$E$13"    'This is the linked cell for DTPicker2
            Me.DTPicker2.Visible = True
    End Select
End Sub
Regards, OssieMac