Come faccio a stampare due o tre copie con cristal report?

Mi serve per stampare un ddt in cui in uno dei due ci sia scritto copia interna

fino ad una stampa ci sono

Public Sub stampaReport(ByVal ntipo As String, ByVal del As String)
Try
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
Dim objdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
Dim varformula As String
db = Configuration.ConfigurationManager.AppSettings("da tabase")

varformula = "{documenti.numero}='" & ntipo & "' AND {documenti.data}= '" & del & "'"
CrystalReport.SelectionFormula = varformula
CrystalReport.RefreshReport()
objdoc.Load(Application.StartupPath & "\reportddt.rpt")


For Each tbCurrent In objdoc.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.ServerName = db
.UserID = ""
.Password = ""
.DatabaseName = "dati"
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent

CrystalReport.ReportSource = objdoc
CrystalReport.RefreshReport()
CrystalReport.Show()

Catch ex As Exception
MessageBox.Show("Errore FrmRptCommessa_CrystalReportViewer1_Load: " & ex.Message, "ERRORE", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub