Hi Friends, help on printing one page per one list View row. How to generate multpage
Public Sub PrintFacturaTds(ByVal ls As ListView, ByVal f As FacturasMes)
ds.Clear()
Dim ordem As Integer = 1
Dim i As Integer = 0
CAg.preencherDadosCompany()
Dim dt As DataTable
dt = ds.Tbl_Pagamento
While i <= ls.Items.Count - 1
'dt.Clear()
Dim dr As DataRow
dr = dt.NewRow
dr.Item("cliente") = ls.Items(i).SubItems(0).Text
dr.Item("Contador") = ls.Items(i).SubItems(1).Text
dr.Item("Leitura") = CDbl(ls.Items(i).SubItems(3).Text)
dr.Item("divida") = CDbl(ls.Items(i).SubItems(10).Text)
dr.Item("LeitAnterior") = CDbl(ls.Items(i).SubItems(2).Text)
dr.Item("Qty_Consumida") = CInt(ls.Items(i).SubItems(3).Text) - CInt(ls.Items(i).SubItems(2).Text)
dr.Item("saldo") = CDbl(ls.Items(i).SubItems(5).Text)
dr.Item("Bairro") = f.cbBairro.Text
dr.Item("SubBairro") = f.cbSub.Text
dr.Item("UserN") = f.lbNomeUser.Text
dr.Item("Valor_Consumo") = CDbl(ls.Items(i).SubItems(4).Text)
dr.Item("mes") = f.cbMes.Text
i = i + 1
dt.Rows.Add(dr)
End While
End Sub
------------------------------------------------------------------------------------------------------------------------------
Private Sub btPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btPrint.Click
Rtds.PrintFacturaTds(lsFacturaTds, Me)
prt = New frmPrintFactura
prt.Location = New System.Drawing.Point(parameterXLocation(), parameterYLocation())
prt.ShowDialog()
End Sub
------------------------------------------------------------------------------------------------------------------------------
Private Sub frmPrintFactura_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FacturaMesA51.SetDataSource(ds)
Me.CrystalReportViewer1.ReportSource = FacturaMesA51
Me.CrystalReportViewer1.RefreshReport()
Me.CrystalReportViewer1.Zoom(90)
End Sub
------------------------------------------------------------------------------------------------------------------
What's the problem printing one page only?