Please help with userform command button to printout worksheet

[leoh48763]

Good morning all. Something that I thought would be rather simple has turned out to give me alot of problems. All Im trying to do is print a worksheet from inside the userform. Excel shows it is sent to the printer but does not print. Then it hangs up, shuts down and recovers my file but will not print. The code is below. Is it something Im doing???. Ive checked both of my books for a solution. Please help..

If UserForm1.CheckBox1.Value = False Then _
Exit Sub
If UserForm1.CheckBox1.Value = True Then _
Worksheets("FUNT").Range("A29").Value = "Face"
Worksheets("FUNT").Range("A30").Value = "UP"
Worksheets("FUNT").Range("A33").Value = UserForm1.DTPicker1.Value

If UserForm1.CheckBox4.Value = True Then _
Worksheets("FUNT").Range("A31").Value = ("8'")
Worksheets("funt").Visible = True
Worksheets("FUNT").PrintOut Copies:=1, Collate:=True
Worksheets("funt").Visible = xlVeryHidden

 

[BrianB]

I have tested your code as is and found that it works OK on my machine.

Try my re-written version below. You have not shown how it runs. I did it from a button on the form.

Try it without hiding the worksheet, sometimes the code runs too fast and gets to a line too soon for things to happen (my printer is not networked)

Your code is unformatted/uncommented in the message. It was just clear enough to get a look. much more and no one would try to read it.

Private Sub CommandButton1_Click()
    If UserForm1.CheckBox1.Value = False Then
        Exit Sub
    Else
        Worksheets("FUNT").Range("A29").Value = "Face"
        Worksheets("FUNT").Range("A30").Value = "UP"
        Worksheets("FUNT").Range("A33").Value = UserForm1.DTPicker1.Value
    End If
    '-----------------------------------------------------------------------------
    If UserForm1.CheckBox4.Value = True Then
        Worksheets("FUNT").Range("A31").Value = ("8'")
        Worksheets("funt").Visible = True
        Worksheets("FUNT").PrintOut Copies:=1, Collate:=True
        '-------------------------------------------------------------
        '- Try without this line *******************************
        'Worksheets("funt").Visible = xlVeryHidden '? ****** ?????????
        '-------------------------------------------------------------
    End If
    '-----------------------------------------------------------------------------
End Sub