Private Sub BtnPrent_Click(sender As Object, e As EventArgs) Handles BtnPrent.Click
Dim report As New RptDay
'Dim frm As FrmPupluc = New FrmPupluc()
report.SetDataSource(myconn.tblGroup)
FrmPupluc.CrystalReportViewer1.ReportSource = report
FrmPupluc.CrystalReportViewer1.Zoom(80%)
FrmPupluc.CrystalReportViewer1.Refresh()
FrmPupluc.ShowDialog()
'Dim report As New CrystalReport1
'report.SetDataSource(myconn.dt)
'FrmRepPrivet.CrystalReportViewer1.ReportSource = report
'FrmRepPrivet.CrystalReportViewer1.Zoom(80%)
'FrmRepPrivet.CrystalReportViewer1.Refresh()
'FrmRepPrivet.ShowDialog()
'Dim report As New RptDay
'report.SetDataSource(myconn.tblGroup)
'FrmPupluc.CrystalReportViewer1.ReportSource = report
'FrmPupluc.CrystalReportViewer1.Zoom(80%)
'FrmPupluc.CrystalReportViewer1.Refresh()
'Dim printDocument As System.Drawing.Printing.PrintDocument = New System.Drawing.Printing.PrintDocument()
'report.PrintOptions.PrinterName = My.Settings.PrinterName
'If My.Settings.PrinterName = "" Then
' MessageBox.Show("من فضلك حدد اسم الطابعة من شاشة اعدادت البرنامج", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
' Return
'End If
'myconn.tbl.Clear()
'myconn.tbl = myconn.readData("select * from OrderPrintData", "")
'If myconn.tbl.Rows.Count <= 0 Then
' MessageBox.Show("من فضلك ادخل بيانات الفاتورة اولا فى شاشة اعدادت البرنامج", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
' Return
'End If
'Dim frm1 As FrmPupluc = New FrmPupluc()
'frm.ShowDialog()
End Sub
