01.Private Sub btn_Appointment_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Appointment_all.Click
02. If MessageBox.Show("คุณต้องการพิมพ์บัตรนัดหมายทั้งหมด??", "ยืนยันการทำงาน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
03. Dim frmRpt As New rp_Appointment_all
04. frmRpt.CrystalReportViewer1.ReportSource = New Cry_Appointment_all
05. frmRpt.CrystalReportViewer1.SelectionFormula = "{Appointment.Ap_date}='" & txta_date.Text & "'"
06. frmRpt.ShowDialog(Me)
07. Else
08.
09. End If
10. End Sub
