Thanks for the help.
I am having one little problem so far.
If I put this code in the Private Sub Report_Open, then the printout won't print - Nothing happens.
txtPerfUp.Visible = False
if I comment out that line then it prints.
I have over 20 labels and text boxes and they all work except...