تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف اضيف زر طباعة الي ملف اكسيل للمشروع البسيط في المرفقات
#1
   
.zip   WindowsApplication1.zip (الحجم : 102.71 ك ب / التحميلات : 11) السلام عليكم

مبتدئ في البرمجة
اشتغل علي مشروع تدريبي بسيط احتاج الي زيادة زر طباعة و كود الطباعة الي ملف اكسيل
الموضوع مهم جداً
قرات في المنتدئ عن الموضوع و لم اصل الي هدفي

نرجو المساعدة و في ميزان حسناتكم
الموضوع سيستفيد منه الكثيرون
ولكم جزيل الشكر
الرد
تم الشكر بواسطة:
#2
(25-01-20, 05:39 AM)Moneam كتب : السلام عليكم
مبتدئ في البرمجة
اشتغل علي مشروع تدريبي بسيط احتاج الي زيادة زر طباعة و كود الطباعة الي ملف اكسيل
الموضوع مهم جداً
قرات في المنتدئ عن الموضوع و لم اصل الي هدفي

نرجو المساعدة و في ميزان حسناتكم
الموضوع سيستفيد منه الكثيرون
ولكم جزيل الشكر


عند تجربة الكود التالي يعطي نتائج صحيحة و لكن بطئ ستغرق اكثر من 10 دقائق لتصدير بيانات 290 شخص و لو بالأسم فقط بدون بيانات تفصيلية   هل من كود سريع؟
Try


           Dim MsExcel = CreateObject("Excel.Application")


           MsExcel.Workbooks.Add()


           For i As Integer = 0 To DataGridView1.Columns.Count - 1
           
               MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText


           Next


           For i As Integer = 0 To DataGridView1.Columns.Count - 1


               For j As Integer = 0 To DataGridView1.Rows.Count - 1
 
                   MsExcel.Columns.HorizontalAlignment = 3


                   MsExcel.Columns.Font.Name = "Times New Roman"


                   MsExcel.Rows.Item(j + 1).Font.Bold = 1


                   MsExcel.Rows.Item(j + 1).Font.size = 14
               
                   MsExcel.Cells(j + 1).ColumnWidth = 14
                           
                   MsExcel.Cells(j + 2, i + 1).Value = DataGridView1.Rows(j).Cells(i).Value


               Next


           Next


           MsExcel.Visible = True


       Catch ex As Exception


           MsgBox(ex.Message)


       End Try
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طباعة صورة من الإكسيس بأستخدام الفيجول بيسك 2010 رامى محمد 3 105 , 03:12 PM
آخر رد: رامى محمد
  طباعة datagridview محمود صالح 10 3,130 15-09-20, 03:04 AM
آخر رد: lira.dox
  [VB.NET] طباعة صورة اسامه الهرماوي 6 517 03-09-20, 12:47 AM
آخر رد: اسامه الهرماوي
  [VB.NET] لو سمحت محتاج مساعدة في تنفيذ شريط مهام للمشروع MustafaShaker 2 232 15-08-20, 05:59 AM
آخر رد: MustafaShaker
  انشاء TaskBar للمشروع Mustafa Shaker 1 194 15-07-20, 02:18 PM
آخر رد: alsouf
  إضافة بيانات جدول ثالث أثناء طباعة صفحة التقرير عبد العزيز البسكري 2 323 08-07-20, 03:24 PM
آخر رد: عبد العزيز البسكري
  مطلوب طريقة طباعة 2 نسخة من تقرير كريستال ahmedramzyaish 3 342 04-07-20, 02:41 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] لمن يبحث على كود طباعة اي صف في داتا قريد تفضل rochdi191 0 211 30-06-20, 12:07 AM
آخر رد: rochdi191
  [VB.NET] طلب كود طباعة صفوف من datagridview rochdi191 8 519 29-06-20, 11:50 PM
آخر رد: rochdi191
  [سؤال] طباعة الباركود ليبل Moham 6 478 26-06-20, 01:30 PM
آخر رد: Moham

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم