Excel Hangs When PrintPreview

[tqm1]

Dear Experts

CmdPrint on UserForm1, has following codes

Private Sub cmdPrint_Click()
Dim wst As Worksheet
    Set WSTF = Worksheets("Print")
    WSTF.Range("D7,D38").Value = MainInput.TextBox2.Value
    WSTF.Range("G7,G38").Value = MainInput.TextBox1.Value
    WSTF.Select
    WSTF.PrintPreview
End Sub

When I press cmdPrint then PrintPreview of sheets("Print") appears and Execl hangs.
No Key or Mouse work. How to get rid of this situation?

Please help