Print Error

[jimmyray]

I am getting this error when I try to print my report. Here is my print code.

Private Sub PrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripMenuItem.Click

Dim Print_Dialog As New PrintDialog

Print_Dialog.ShowDialog()

If Print_Dialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Print_Dialog.Document.Print()
End If

End Sub

Here is my error:

System.NullReference Exception: Object reference not set to an instance of an object.