Visual Basic - MENSAJE DE AVISO

Private Sub ven_2_Click()

	If MsgBox("¿Desea saca un Resumen del dia?", vbYesNo, "Informen del Dia") = vbNo Then

		Exit Sub

	Else

		Printer.Print "su venta de hoy fue"

		Printer.Print ""

		Printer.Print Date

		Venta_1

		With Venta_0

			If .State = 1 Then .Close

				.Open "SELECT * FROM venta_bod WHERE [fec2] LIKE '" & Date & "'"

				For X = 1 To .RecordCount

					Printer.Print "boleta: "; !num2

					Printer.Print "Producto:"; !tip2; ". "; !mar2; ": $"; !pag2

					If Pag5 = 0 Then Pag5 = !pag2 Else Pag5 = Pag5 + !pag2

					If X = .RecordCount Then Else .MoveNext

					If .EOF Then Exit For

				Next

				Printer.Print ""

				Printer.Print ""

				Printer.Print ""

				Printer.Print "Lo que recibio hoy fue: $"; Pag5

				Printer.EndDoc

		End With

	End If

End Sub