اخفاء بعض الحقول أثناء الطباعة

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

قم بطباعه القيم التي تم ادخالها وذلك من خلال الشرط بواسطه If وقم باستخدام الاداه PrintDocument وفي الحدث PrintPage قم بعمل كودك لتحديد العناصر التي سوف يتم طباعتها

عدت لك من جديد vb helper كيف أستطيع طباعة صورة موجودة كـheader من خلال print document في انتظارك ؟ :unsure:

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

اخي يمكنك في نفس الحدث وقبل اي شيء من رسم صوره الرأس من خلال الداله e.Graphics.DrawImage()

أخي vb helper لقد حاولت تجربة فكرة الطباعة بالشرط if لكن وجدت أنها غير ممكنة حسب الطريقة التي اتبعنها أنا إليك محاولتي

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim f As New Font("Times New Roman", 14, FontStyle.Underline)
        Dim b As New SolidBrush(Color.Black)
        If TextBox1.Text.Length = 0 Then

        End If
        If TextBox1.Text.Length > 0 Then
            e.Graphics.DrawString(TextBox1.Text, f, b, 16, 0)
        ElseIf TextBox2.Text.Length > 0 Then
            e.Graphics.DrawString(TextBox2.Text, f, b, 16, 0)
        End If
        If TextBox1.Text.Length > 0 Then
            e.Graphics.DrawString(TextBox2.Text, f, b, 16, 30)
        End If
        If TextBox1.Text.Length = 0 And TextBox2.Text.Length = 0 Then
            e.Graphics.DrawString(TextBox3.Text, f, b, 16, 0)
        ElseIf TextBox1.Text.Length = 0 And TextBox2.Text.Length > 0 Then
            e.Graphics.DrawString(TextBox3.Text, f, b, 16, 30)
        ElseIf TextBox1.Text.Length > 0 And TextBox2.Text.Length = 0 Then
            e.Graphics.DrawString(TextBox3.Text, f, b, 16, 30)
        ElseIf TextBox1.Text.Length > 0 And TextBox2.Text.Length > 0 Then
            e.Graphics.DrawString(TextBox3.Text, f, b, 16, 60)
        End If

        If TextBox1.Text.Length = 0 And TextBox2.Text.Length = 0 And TextBox3.Text.Length = 0 Then
            e.Graphics.DrawString(TextBox4.Text, f, b, 16, 0)
        ElseIf TextBox1.Text.Length = 0 And TextBox2.Text.Length > 0 And TextBox3.Text.Length > 0 Then
            e.Graphics.DrawString(TextBox4.Text, f, b, 16, 60)
        ElseIf TextBox1.Text.Length = 0 And TextBox2.Text.Length = 0 And TextBox3.Text.Length > 0 Then
            e.Graphics.DrawString(TextBox4.Text, f, b, 16, 30)
        ElseIf TextBox1.Text.Length > 0 And TextBox2.Text.Length > 0 And TextBox3.Text.Length = 0 Then
            e.Graphics.DrawString(TextBox4.Text, f, b, 16, 60)
        ElseIf TextBox1.Text.Length > 0 And TextBox2.Text.Length > 0 And TextBox3.Text.Length > 0 Then
            e.Graphics.DrawString(TextBox4.Text, f, b, 16, 90)
        ElseIf TextBox1.Text.Length > 0 And TextBox2.Text.Length = 0 And TextBox3.Text.Length > 0 Then
            e.Graphics.DrawString(TextBox4.Text, f, b, 16, 60)
        ElseIf TextBox1.Text.Length > 0 And TextBox2.Text.Length = 0 And TextBox3.Text.Length = 0 Then
            e.Graphics.DrawString(TextBox4.Text, f, b, 16, 60)
        ElseIf TextBox1.Text.Length = 0 And TextBox2.Text.Length > 0 And TextBox3.Text.Length = 0 Then
            e.Graphics.DrawString(TextBox4.Text, f, b, 16, 30)
        End If

    End Sub

وكلما زادت الـtextbox زادت الاحتمالات فما رأيك vb helper أذا كنت أتحدث عن 70 textboxes ؟

أرجو أن يكون لديك فكرة .

Hv[,

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

اخي كان موضوعك بخصوص طباعه صوره وقمت بالرد والان ارى طباعه نصوص؟!! ما الذي تقصده

iamsad كتب:

لدي فورم به عدة مربعات نص تملا هذه المربعات من قبل المستخدم وينتهي بها الامر الى الطباعة ولكن المستخدم غالبا لا يقوم بملء كل المربعات وبالتالي لا يريد أن يطبع بقية المربعات خاليةفهو يريد أن تطبع المربعات التي تم ملؤها فقط فكيف يمكنه ذلك أريد تفصيلا ولكن ان أعطاني أحدكم بعض التلميحات فقد أبدأ بتجميع الخيوط

أرجو المساعدة فليس لدي أي فكرة ؟؟؟؟؟؟

ولا أدري أي طريقة للطباعة تقرير أم طباعة فورم أم طباعة مستند

أخي لقد كان هذا سؤالي من البداية الطباعة حسب قيمة مربع إذا كان به قيمة تطبع وإلا تتم طبعاة المربع الذي يليه في مكان الأول ووعدت بالمحاولة وحاولت كثيرا لكن وقفت معلوماتي البرمجية عند هذا الحد.

جاءتني هذه الفكرة

دالة تبحث في مربعات النصوص إذا كان المربع فارغا تركته وأذا كان به قيمة تضع هذه القيمة الأولى في الحقل الأول في مصفوفة ثم تبحث عن آخر ثم تضعه في الصف الثاني للمصفوفة وكل صف في المصفوفة تتم طباعته في مكان معين بالترتيب

الفكرة غير واضحة في ذهني جيدا أرجو منك مساعدتي في توضيح هذه الفكرة

لا أريد كودا أريد فكرة برمجية واضحة حتى أستطيع ترجمتها إلى كود بنفسي إذا استطعت ذلك

مشكور على متابعتك لموضوعي.

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

اخي خلاص انت مضطر لعمل الشروط بحسب مربعات النص!!

ما تختصرني خالص كدة عاوز ظاعرف المفروض أعمل ايه

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

اخي جرب هذا الحل الذي سيقوم بطباعه جميع مربعات النص الغير فاضيه حتى لو كانت 70

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

شكرا كثيرا أخي

الحل الذي أعطيتني له ممتاز ولكن به مشكلتين لو عولجتا كان هذا كل ما أريد

-أولا الكود لا يبحث داخل الـcontainers فقد جربته على tab فلم يقرأ وجربته على panei أيضا لم يقرأ ومربعات النص التي أريد طباعنها هي داخل tabs

-ثانيا الحلقة تبدأ بالمربع الأخير فتطبعه أولا فبالتالي مربعات النص تأتي في الطباعة مقلوبة الأول آخرا والأخير أولا .

وشكرا مرة أخرى على اجتهادك معي

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

اخي بالنسبة للمشكله الاولى يمكنك البحث في اداة الاحتواء التي تريدها وذلك باستبدال Me باسم الحاوية, اما المشكله الثانيه قم بتغيير ال Tab Order تبع مربعات النص وكل شي بيكون تمام

للأسف أخي لم تنجح هذه التعديلات وعلى العموم حتى لا أتثاقل عليك كثيرا بالأسئلة إليك المثال الذي أعمل عليه فانظر فيه لعلك تجد الخلل فيه

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

للأسف أخي لم تنجح هذه التعديلات وعلى العموم حتى لا أتثاقل عليك كثيرا بالأسئلة إليك المثال الذي أعمل عليه فانظر فيه لعلك تجد الخلل فيه

printexception.rar

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

اخي جرب الكود التالي

For Each ctrl In TabControl1.TabPages(0).Controls

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

والله ماعارف أشكرك كيف غير أني أدعو الله لك بكل خير

فقط المشكلة الآن في الترتيب

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

لاشكرا على واجب اخي .. بالنسبه للترتيب كما ذكرت لك سابقا استخدم Tab Order من القائمه View لتقوم بترتيب الادوات

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

جربتها أخي لم تغير شيئا

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

اخي لننهي المشكله .. قم بحذف مربعات النص الاربعه, قم باضافه مربع نص جديد وضعه في الاخير واضف الثانيه فوقه وهكذا .. يعني نقوم بترتيبه بالمعكوس, شغل برنامجك ولاتقولي ماضبط؟!!

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

والله أخي مشكور جدا جدا على مجهودك الكبير معي وحأدعو ليك تاني كمان وهذا كل ما أستطيع جزاءك به

المشكلة اتحلت والحمدلله ووجدت ما أريد وأكثر .

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

لا شكر على واجب اخي ...