bob.walker
Member
- Joined
- May 17, 2005
- Messages
- 18
- Programming Experience
- 3-5
I have several pages that can be printed out. I want to be able to "Print ALL" as well.
Private Sub bPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bPrint.Click
Dim oCRV as New ReportDocument
if me.cbPage1.checked then
loadPage1(oCRV)
elseif me.cbPage2.checked then
loadPage2(oCRV)
else
loadPage3(oCRV)
endif
End Sub
private sub loadPage1(oCRV As ReportDocument)
oCRV.Load(Server.MapPath("Page1.rpt"))
Me.CRView.ReportSource = oCRV
End Sub
private sub loadPage2(oCRV As ReportDocument)
oCRV.Load(Server.MapPath("Page2.rpt"))
Me.CRView.ReportSource = oCRV
End Sub
private sub loadPage3(oCRV As ReportDocument)
oCRV.Load(Server.MapPath("Page1.rpt"))
'How do I select next page??
oCRV.Load(Server.MapPath("Page2.rpt"))
Me.CRView.ReportSource = oCRV
End Sub
Thanks for any help.
Private Sub bPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bPrint.Click
Dim oCRV as New ReportDocument
if me.cbPage1.checked then
loadPage1(oCRV)
elseif me.cbPage2.checked then
loadPage2(oCRV)
else
loadPage3(oCRV)
endif
End Sub
private sub loadPage1(oCRV As ReportDocument)
oCRV.Load(Server.MapPath("Page1.rpt"))
Me.CRView.ReportSource = oCRV
End Sub
private sub loadPage2(oCRV As ReportDocument)
oCRV.Load(Server.MapPath("Page2.rpt"))
Me.CRView.ReportSource = oCRV
End Sub
private sub loadPage3(oCRV As ReportDocument)
oCRV.Load(Server.MapPath("Page1.rpt"))
'How do I select next page??
oCRV.Load(Server.MapPath("Page2.rpt"))
Me.CRView.ReportSource = oCRV
End Sub
Thanks for any help.