[vbnet]

.....

بالرغم من عدم وضوح المطلوب بالرغم مما ذكرت (لأنه يحتمل عدة اتجاهات) وبالرغم من عدم ارفاق مشروعك لتتضح الصورة

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim rpt As New Report1
    rpt.SetParameterValue("Name", If(Me.CheckBox1.Checked, Me.TextBox1.Text, ""))
    rpt.SetParameterValue("Address", If(Me.CheckBox2.Checked, Me.TextBox2.Text, ""))
    rpt.SetParameterValue("Phone", If(Me.CheckBox3.Checked, Me.TextBox3.Text, ""))
    rpt.PrintToPrinter(1, True, 1, 1)
End Sub

.....