[new_programer]

السلام عليكم 

كل عام وانتم بخير 

لدي كود تصدير التقرير الى ملف PDF
 اريد  التحكم فى عدد نسخ الطباعة من خلال تكست بوكس 
الكود المستخدم فى التصدير 

كود :

   Dim rpt As New CrystSalePOSinv  'اسم التقرير

       SFDialog.Filter = "Pdf Files|*.pdf"
       If SFDialog.ShowDialog() = DialogResult.OK Then
           rpt.ExportToDisk(ExportFormatType.PortableDocFormat, SFDialog.FileName)
           MessageBox.Show("تم تصدير التقرير بنجاح", "تصدير")
           Cursor = Cursors.Default
       End If