Print Preview on Submit (VB)

Last post 08-04-2007 01:35 PM by kaleo. 0 replies.

Page 1 of 1 (1 items)
	Sort Posts: Previous Next

08-04-2007 01:35 PM

kaleo
Joined on 04-26-2007
Honolulu, Hawaii
Posts 17

Print Preview on Submit (VB)

Reply Contact

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!!!

Page 1 of 1 (1 items)

InfoPath Dev