Print Preview on Submit (VB)

kaleo — Sat, 04 Aug 2007 20:35:37 GMT

Hello Everyone,

I have a submit button that promts the user with a print dialog box before submit.

Me.Print(True)

But when the user selects "Preview" in the print dialog no preview and the code resumes.

Submit Code:

Public Sub FormEvents_Submit(ByVal sender As Object, ByVal e As SubmitEventArgs)

If FileName_XPN.Value = "" Then

FileName_XPN.SetValue("Letter Transmittal - " & Company_XPN.Value & " - " & Now())

End If

"Letter Transmittal - " & Company_XPN.Value & " - " & Now())

End If

Dim Submit_DC As DataConnection = Me.DataConnections("MOSS Submit Fax Transmittal")

Submit_DC.Execute()

Me.Print(True)

MessageBox.Show("Your transmittal has been submitted." & vbCrLf & "Please collect your transmittal from the printer")

Me.Close()

Application.Quit()

e.CancelableArgs.Cancel = False

Dim Submit_DC As DataConnection = Me.DataConnections("MOSS Submit Fax Transmittal")

Submit_DC.Execute()

Me.Print(True)

MessageBox.Show("Your transmittal has been submitted." & vbCrLf & "Please collect your transmittal from the printer")

Me.Close()

Application.Quit()

e.CancelableArgs.Cancel = False

Me.Print(True)

MessageBox.Show("Your transmittal has been submitted." & vbCrLf & "Please collect your transmittal from the printer")

Me.Close()

Application.Quit()

e.CancelableArgs.Cancel = False

"Your transmittal has been submitted." & vbCrLf & "Please collect your transmittal from the printer")

Me.Close()

Application.Quit()

e.CancelableArgs.Cancel = False

Me.Close()

Application.Quit()

e.CancelableArgs.Cancel = False

False

End Sub

Mahalo!!!