Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CryPrt As New ReportDocument
Dim i, x
Dim m1, m2, m3, m4, m5, m6, m7, m8, m9, m10, m11, m12
Dim c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11, c12
Dim Acct_no, name, address, rc, acct_class, meter_no, prev, pres, cons, basic, arrears
Dim mmf, materials, others, amtdue, penalty, dueafter, avecons, from, tod, duedate, scdiscount, disconotice, scnotice
CryPrt.Load("c:sanjosewbprintingwbprintingcrystalreport1.rpt")
x = TextBox2.Text
If TextBox2.Text = "" Then
MessageBox.Show("No Bill Number to Print . . Input Starting Bill Number. . . ")
TextBox2.Focus()
Else
For i = 0 To (Me.DataGridView1.Rows.Count - 2)
ReportsDataSet.GRAPH.Clear()
ReportsDataSet1.NOTICE.Clear()
'setting the value of dgv1 cells to memory
Me.DataGridView1.Item("BillnoDataGridViewTextBoxColumn", i).Value = x
Acct_no = Me.DataGridView1.Item("AccountNumberDataGridViewTextBoxColumn", i).Value
name = Me.DataGridView1.Item("NameDataGridViewTextBoxColumn", i).Value
address = Me.DataGridView1.Item("AddressDataGridViewTextBoxColumn", i).Value
m1 = Me.DataGridView1.Item("Month1DataGridViewTextBoxColumn", i).Value
m2 = Me.DataGridView1.Item("Month2DataGridViewTextBoxColumn", i).Value
m3 = Me.DataGridView1.Item("Month3DataGridViewTextBoxColumn", i).Value
m4 = Me.DataGridView1.Item("Month4DataGridViewTextBoxColumn", i).Value
'transfer dgv1 values to reports - - columns for graph printing
ReportsDataSet.GRAPH.Rows.Add(m1)
Me.DataGridView2.Item("M1DataGridViewTextBoxColumn", 0).Value = c1
ReportsDataSet.GRAPH.Rows.Add(m2)
Me.DataGridView2.Item("M1DataGridViewTextBoxColumn", 1).Value = c2
ReportsDataSet.GRAPH.Rows.Add(m3)
Me.DataGridView2.Item("M1DataGridViewTextBoxColumn", 2).Value = c3
ReportsDataSet.GRAPH.Rows.Add(m4)
Me.DataGridView2.Item("M1DataGridViewTextBoxColumn", 3).Value = c4
ReportsDataSet.GRAPH.Rows.Add(m5)
Me.DataGridView2.Item("M1DataGridViewTextBoxColumn", 4).Value = c5
'transfer dgv data to dgv3 for printing
ReportsDataSet1.NOTICE.Rows.Add(Acct_no)
Me.DataGridView3.Item("NAMEDataGridViewTextBoxColumn1", 0).Value = name
Me.DataGridView3.Item("ADDRESSDataGridViewTextBoxColumn1", 0).Value = address
Me.DataGridView3.Item("RATECODEDataGridViewTextBoxColumn1", 0).Value = rc
Me.DataGridView3.Item("ACCTCLASSDataGridViewTextBoxColumn1", 0).Value = acct_class
Me.DataGridView3.Item("METERNODataGridViewTextBoxColumn1", 0).Value = meter_no
Me.DataGridView3.Item("PreviousReadingDataGridViewTextBoxColumn", 0).Value = prev
Me.DataGridView3.Item("PresentReadingDataGridViewTextBoxColumn", 0).Value = pres
Me.DataGridView3.Item("UsedDataGridViewTextBoxColumn", 0).Value = cons
Me.DataGridView3.Item("AmountBilledDataGridViewTextBoxColumn", 0).Value = basic
Me.DataGridView3.Item("ArrearsDataGridViewTextBoxColumn1", 0).Value = arrears
Me.DataGridView3.Item("MMFDataGridViewTextBoxColumn1", 0).Value = mmf
Me.DataGridView3.Item("SCMaterialsDataGridViewTextBoxColumn", 0).Value = materials
Me.DataGridView3.Item("OthersDataGridViewTextBoxColumn1", 0).Value = others
Me.DataGridView3.Item("AmountDueDataGridViewTextBoxColumn", 0).Value = amtdue
Me.DataGridView3.Item("PenaltyDataGridViewTextBoxColumn1", 0).Value = penalty
Me.DataGridView3.Item("AmountDueAfterDataGridViewTextBoxColumn", 0).Value = dueafter
Me.DataGridView3.Item("AveConDataGridViewTextBoxColumn1", 0).Value = avecons
End If
MessageBox.Show(i)
update_db1()
update_db2()
update_db3()
CrystalReportViewer1.Enabled = False
CrystalReportViewer1.Show()
CrystalReportViewer1.PrintReport()
CrystalReportViewer1.ReportSource = CryPrt
CryPrt.PrintToPrinter(1, False, 1, 1)
CrystalReportViewer1.Refresh()
GRAPHTableAdapter.DeleteQuery()
NOTICETableAdapter.DeleteQuery()
update_db2()
update_db3()
x = x + 1
Next
End If
End Sub
I want to print a specific record or row each time it loops tru the database without using the crystal reports viewer. Please help me , im stuck with this code. I have searched the web but no avail. thanks in advance.
dp.SyntaxHighlighter.ClipboardSwf = ‘/dp.SyntaxHighlighter/Scripts/clipboard.swf’
dp.SyntaxHighlighter.HighlightAll(‘c9e780a4098c40de82fb81accacaaabf’)
Similar:
- Problem setting DataSource of a DataGridView What happens here is when in the form opens, it shows the contextMenu and display the DataGridView on it with the value of dataSet1. But...
- Crystal Reports – Printing Lables This may not be the best forum for this question, but since I’m writing my application in VB.NET I figured this would be a good...
- Crystal Reports not chaging the server programatically I’m developing a local app with friends and we’re using svn, but we have crystal reports, but it saves the last server used by one...
- Datagridview looping and update . . . Help Heres the code, i want to populate number starting at any value given to textbox3 plus one in each loop. That is bound data and...
- Missing Parameter values in Crystal reports When i run the page i’m getting a message showing."Missing Parameter values" and want display the report. i’ve used following formula Expand|Select|Wrap|Line Numbers Year ({tbl_DisasterRegistration.Date}) = Year (CurrentDate) - {?@YearCount} By...