يمنع منعاً باتاً رفع الملفات على المواقع التالية:
Ge.tt - mediafire.com - 4shared.com
مطلوب طاقم إشراف وأدارة للمنتدى, للمعنيين بالرجاء التواصل مع الادارة على البريد التالي :
vbspiders.network@gmail.com


العودة   :: vBspiders Professional Network :: > [ ::. قسم البرمجة ولغاتها .:: ] > قسم البرمجة الكائنية

إضافة رد
 
LinkBack أدوات الموضوع انواع عرض الموضوع
قديم 07-06-2011, 02:12 AM   رقم المشاركة : 1 (permalink)
معلومات العضو
 
الصورة الرمزية SpookWeb
 

 

 
إحصائية العضو








SpookWeb غير متواجد حالياً

إرسال رسالة عبر MSN إلى SpookWeb

 

 

إحصائية الترشيح

عدد النقاط : 10
SpookWeb is on a distinguished road

افتراضي طباعة DataGridView من اليمين VB.NET


السلام عليكم.

حبيت اشاركم في مشكلة واجهتني عند طلب زبون لي خيار طباعة datagridview في برنامج كنت قد أعددته له بواسطة vb.net بإستخدام Visual Studio 2010 , وحلها.

المشكلة هيا ان البرنامج ومعلومات ال datagridview بالعربية
أي يجب الطبعة من اليمين

~اولا~

نحمل من هنا DataGridViewPrinter.cs
أو عبر المرفقات.
ونفك الضغط (لنفترض فكناه في :c)
~ثانيا~

نبحث عن الملف: csc.exe وهو compiler لل #C.
الملف موجود عندي في:
كود:
C:\Windows\Microsoft.NET\Framework64\v4.0.30319
~ثالثا~

نفتح command prompt أو cmd

كود:
CTRL+R -> CMD.exe
ونحدد مسار csc.exe

كود:
cd "C:\Windows\Microsoft.NET\Framework64\v4.0.30319"
~رابعا~
نكتب الأمر التالي:

كود:
csc /t:library /out:C:/DataGridViewPrinter.dll C:\DataGridViewPrinter.cs
هذا الامر يعمل compile ل DataGridViewPrinter.cs into DataGridViewPrinter.dll

~خامسا~
في VisualStudio نضع مرجع كالاتى:

كود:
Right-Click on your Project Name-> Add Reference -> Browse -> c:\DatagridViewerPrinter.dll
تمام. تقريبا خلصنا :lol:

للتجربة:

-وضع form جديد
-وضع زيرين "Buttons"
-وضع DataGridView
-وضع برينتدكومنت (اسف هناك رقابة على كلمة دكومنت فالمنتدى)
نضع في خصائص ال datagridview
RightToLeft = True

وفالكود (بعد برمجة كيفية تعبأة ال datagridview أكيد) نضع الكود التالي:

(ايبدل ******** بـكلمة دكومنت بالإنجليزية)
كود:
Public Class Form1  
    'Create DataGridViewPrinter type variable  
    Dim MyDataGridViewPrinter As DataGridViewPrinter  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
        If SetupThePrinting() Then 
            Print********1.Print()  
        End If 
    End Sub 
 
    'The PrintPage action for the Print******** control  
    Private Sub Print********1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Print********1.PrintPage  
        Dim more As Boolean = MyDataGridViewPrinter.DrawDataGridView(e.Graphics)  
        If more = True Then 
            e.HasMorePages = True 
        End If 
    End Sub 
 
    'The PrintView button  
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
        If SetupThePrinting() Then 
            Dim MyPrintPreviewDialog As PrintPreviewDialog = New PrintPreviewDialog()  
            MyPrintPreviewDialog.******** = Print********1  
            MyPrintPreviewDialog.ShowDialog()  
        End If 
    End Sub 
 
    Private Function SetupThePrinting() As Boolean 
        Dim MyPrintDialog As PrintDialog = New PrintDialog()  
        MyPrintDialog.AllowCurrentPage = False 
        MyPrintDialog.AllowPrintToFile = False 
        MyPrintDialog.AllowSelection = False 
        MyPrintDialog.AllowSomePages = False 
        MyPrintDialog.PrintToFile = False 
        MyPrintDialog.ShowHelp = False 
        MyPrintDialog.ShowNetwork = False 
 
        If MyPrintDialog.ShowDialog() <> DialogResult.OK Then 
            Return False 
        End If 
 
        Print********1.********Name = "Customers Report" 
        Print********1.PrinterSettings = MyPrintDialog.PrinterSettings  
        Print********1.DefaultPageSettings = MyPrintDialog.PrinterSettings.DefaultPageSettings  
        Print********1.DefaultPageSettings.Margins = New Margins(40, 40, 40, 40)  
 
        If MessageBox.Show("Do you want the report to be centered on the page", "InvoiceManager - Center on Page", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then 
            MyDataGridViewPrinter = New DataGridViewPrinter(DataGridView1, Print********1, True, True, "Customers", New Font("Tahoma", 18, FontStyle.Bold, GraphicsUnit.Point), Color.Black, True)  
        Else 
            MyDataGridViewPrinter = New DataGridViewPrinter(DataGridView1, Print********1, False, True, "Customers", New Font("Tahoma", 18, FontStyle.Bold, GraphicsUnit.Point), Color.Black, True)  
        End If 
 
        Return True 
    End Function
//إنتهى

كود:
Tested on
Windows 7 x32
VisualStudio 2010 Ultimate
Microsoft.NET Framework 4 Client Profile 4.0.30319.1 Final
المرجع: هنا

والسلام عليكم ورحمة الله وبركاته

اخوكم في الله: SpookWEB
Sp00kY



'fhum DataGridView lk hgdldk VB>NET datagridview print vb>net

الملفات المرفقة
نوع الملف: rar DataGridViewPrinter.rar‏ (4.1 كيلوبايت, المشاهدات 84)
:: نصائح مهمه :: - أفحص الملف المرفق بأي برنامج مضاد للفيروسات
2- قم بمراسلة المراقب عن أي مرفق يوجد به فيروس
3- المنتدى غير مسوؤل عن مايحتويه المرفق من بيانات
التوقيع

في عطلة غير محددة الزمن بسبب العمل...

والله أحلى عناكب

موفقين بإذن الله

السلام عليكم ورحمة الله وبركاته

اللهم صلي وسلم وبارك الى سيد المرسلين سيدنا محمد

 

   

رد مع اقتباس
قديم 10-15-2011, 12:00 PM   رقم المشاركة : 2 (permalink)
معلومات العضو
 
الصورة الرمزية az_al200
 

 

 
إحصائية العضو






az_al200 غير متواجد حالياً

 

 

إحصائية الترشيح

عدد النقاط : 10
az_al200 is on a distinguished road

افتراضي رد: طباعة DataGridView من اليمين VB.NET


شكراااااااااااااااااااااااااااااا

   

رد مع اقتباس
قديم 05-28-2014, 09:53 AM   رقم المشاركة : 3 (permalink)
معلومات العضو
 
الصورة الرمزية a7mad05
 

 

 
إحصائية العضو







a7mad05 غير متواجد حالياً

 

 

إحصائية الترشيح

عدد النقاط : 10
a7mad05 is on a distinguished road

افتراضي رد: طباعة DataGridView من اليمين VB.NET


شكرا وجزاك الله عنا خير

   

رد مع اقتباس
قديم 02-03-2015, 02:49 AM   رقم المشاركة : 4 (permalink)
معلومات العضو
 
الصورة الرمزية xebrahimx
 

 

 
إحصائية العضو







xebrahimx غير متواجد حالياً

 

 

إحصائية الترشيح

عدد النقاط : 10
xebrahimx is on a distinguished road

افتراضي رد: طباعة DataGridView من اليمين VB.NET


شكرا جزيلا

   

رد مع اقتباس
قديم 02-04-2015, 02:25 AM   رقم المشاركة : 5 (permalink)
معلومات العضو
 
الصورة الرمزية fateh1974
 

 

 
إحصائية العضو







fateh1974 غير متواجد حالياً

 

 

إحصائية الترشيح

عدد النقاط : 10
fateh1974 is on a distinguished road

افتراضي رد: طباعة DataGridView من اليمين VB.NET


شكرا

   

رد مع اقتباس
قديم 03-15-2015, 12:44 PM   رقم المشاركة : 6 (permalink)
معلومات العضو
 
الصورة الرمزية dido83
 

 

 
إحصائية العضو







dido83 غير متواجد حالياً

 

 

إحصائية الترشيح

عدد النقاط : 10
dido83 is on a distinguished road

افتراضي رد: طباعة DataGridView من اليمين VB.NET


شكراااااااااااااااااااااااااااا على المجهود

   

رد مع اقتباس
قديم 05-24-2015, 10:48 PM   رقم المشاركة : 7 (permalink)
معلومات العضو
 
الصورة الرمزية swengineeer
 

 

 
إحصائية العضو







swengineeer غير متواجد حالياً

 

 

إحصائية الترشيح

عدد النقاط : 10
swengineeer is on a distinguished road

افتراضي رد: طباعة DataGridView من اليمين VB.NET


فكره حلوة ..شكرا

   

رد مع اقتباس
قديم 07-28-2016, 09:14 PM   رقم المشاركة : 8 (permalink)
معلومات العضو
 
إحصائية العضو








kimtienluong87 غير متواجد حالياً

 

 

إحصائية الترشيح

عدد النقاط : 10
kimtienluong87 is on a distinguished road

افتراضي رد: طباعة DataGridView من اليمين VB.NET


Rل؛¥t ؤ‘أ،ng quan tأ¢m nhل»¯ng gأ¬ bل؛،n chia sل؛».

   

رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

الكلمات الدليلية (Tags)
datagridview, print, vb.net

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
Trackbacks are متاحة
Pingbacks are متاحة
Refbacks are متاحة

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


الساعة الآن 07:09 PM


[ vBspiders.Com Network ]

SEO by vBSEO 3.6.0