طباعة بالألوان

جرب هذا الكود في حدث PrintButtonClicked

  Dim msg As VbMsgBoxResult
 msg = MsgBox("Do You Want to Print in Colour?", vbYesNo, "Print")
 If msg = vbNo Then
   With Report
       .Text1.TextColor = vbBlack
       .Line1.LineColor = vbBlack ' يجب ان تحصي جميع الخطوط والمربعات والنصوص التي يحتوي عليها التقرير .  
       .Box1.LineColor = vbBlack
   End With

علماً بأنك لن ترى أي تغيير على الشاشة ولكن في الطباعة من المفترض ان تكون سوداء.

تحياتي

أشكرك كل الشكر أخي الكريم ، لكن للأسف الفكرة دي كنت ناوي أعملها بس هيواجهني عقبات

لكن فية في التقارير دي شعار الشركات بالألوان كيف يمكنني أن أجعل الصورة تطبع بالأبيض والأسود ؟؟؟

طيب هفرض أن العميل هيرسل ليا صورة أبيض وأسود أو هفرض أن فية برامج بتحول الشعارات دي الي أبيض وأسود

طيب لو مثلاً فرضاً ان عملت تقرير يحتوي علي بيانات موظف محدد ، والتقرير دة بيعرض صورة الموظف كيف يمكنني طباعة الصورة باللون الأسود في حالة لو كانت ألوان ؟؟؟

هي الطريقة أللي انت عرضتها طريقة عملية ومفهومة وأشكرك كل الشكر علي رضك هذا ، لكن هناك بعض التحفظات يجب أخذها في الأعتبار وهو ما تم توضيحة

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

عزيزي ليس لدي طابعة لاجرب العملية ولكن حسب البحث وفي موقع ميكروسوفت وجدت ان colormode هي المسئولة عن تغيير الالوان

فلا ادري لماذا لم تعمل معك .

أشكرك أخي الكريم علي أهتمامك بموضوعي ، ولكن لو لاحظت المثال المرفق هتلاقيني بستخدم ColorMode في هذه العملية ولم تعمل قط

فما السبب في ذلك ؟؟؟

هل لم أرسل كائن الطابعة للتقرير جيداً ؟؟؟ أم ماذا ؟؟؟

شكراً لك مرة أخري

؟؟؟؟؟؟؟؟؟

MMA_EG_Cairo كتب:

أشكرك أخي الكريم علي أهتمامك بموضوعي ، ولكن لو لاحظت المثال المرفق هتلاقيني بستخدم ColorMode في هذه العملية ولم تعمل قط

فما السبب في ذلك ؟؟؟

هل لم أرسل كائن الطابعة للتقرير جيداً ؟؟؟ أم ماذا ؟؟؟

شكراً لك مرة أخري

جرب اخي الكريم هذا الكود لعله ينفع . علماً بأنني لم اجربه , لعدم وجود طابعة معي

 Dim msg As VbMsgBoxResult

 msg = MsgBox("Print in Color?", vbYesNo, "Print")
    If msg = vbNo Then
      Printer.ColorMode = vbPRCMMonochrome '=1
    Else
     Printer.ColorMode = vbPRCMColor '=2
   End If

بدون أن تعطي امر طباعة التقرير . فقط اجعله في حدث نقر زر الطباعة في crytal report viewer

تحياتي

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

Option Explicit

Dim Report As New Rep

Private Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)

UseDefault = False

Dim intMsg As Integer

intMsg = MsgBox("هل ترغب طباعة التقرير بالألوان", vbYesNoCancel + vbMsgBoxRight + vbMsgBoxRtlReading + _

vbDefaultButton2 + vbQuestion, "طباعة")

If (intMsg = vbYes) Then

Printer.ColorMode = 2

ElseIf (intMsg = vbNo) Then

Printer.ColorMode = 1

Else

Exit Sub

End If

Rep.PrintOut False, 1

End Sub

Private Sub Form_Load()

Screen.MousePointer = vbHourglass

CRViewer1.ReportSource = Report

CRViewer1.ViewReport

Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()

CRViewer1.Top = 0

CRViewer1.Left = 0

CRViewer1.Height = ScaleHeight

CRViewer1.Width = ScaleWidth

End Sub

طيب علي كل حال أنا خليت التقرير يتم تحويلة الي لون أحادي (أبيض/أسود) بطريقة بسيطة جداً وهي المرور

علي كافة الحقول وجعل الخطوط والألوان أسود + تحويل صورة الشعار الي لون أبيض وأسود كما هو موضح

بالمرفقات ، مع العلم أن هذه الطريقة ليست عملية في وجهة نظري ، ولكن للضرورة أحكام

المهم دلوقتي أنا فية مشكلة أخري واجهتني ولا أعلم السبب أين

حيث فجأة وبدون أي مقدمات أختي حقل Field من التقرير أثناء عملية الطباعة فقط !!!!

بمعني أدق ، عندي تقرير محدد ، التقرير دة بيحتوي علي مجموعة من النصوص والحقول ... أحياناً بلاقي أثناء

عمل Print للتقرير أفوجأ بأن فية حقل أو مربع نص أختفي أثناء عملية الطباعة فقط لا غير

فهل أحد يعلم شيء عن هذا الموضوع ؟؟؟

شكراً

Add1.rar