VBA : xlDialogPrint function
 

I am using the following code to print:

Private Sub PrintButton_Click()
Application.Dialogs(xlDialogPrint).Show
ActiveCell.Range("F66").Activate
Range("A1").Select
Application.StatusBar = False

When the dialog screen is displayed I want to disable the
preview feature with the dialog box. What happens is when
the user select this function, my vb macro freezes up and
so does access to my workbook.