كود اعطاء امر الطباعه

هذا الأمر تفضل اخي

CrystalReport1.PrintReport

جزاك الله خيرا اخى ولكنى لا اريد طباعه ورقه من كريستال ريبورت افترض مثلا انى وضعت تكست بوكس على الفورم واريد طباعه ما بداخله

هل سؤالك هو طباعة السجل الحالي ؟

-09

الخ العزيز استخدم الاتى :

Printer.Print text1.text

جرب و قولى

شكرا

شكرا للمشرفين على المنتدى ولجميع الاخوان الذين يتفاعلون مع اسئلة المبتدئين امثالي

ولكن بالنسبه للسئوال اعلاه ماهي الطريقة لطباعة نص عربي طويل من مربع نص لة خاصية multi lines حيث عند الطباعة وعند الوصول الى الحافة اليمنى للصفحه فانه لايبدا الطباعة بسطر جديد وانما يستمر في الطباعة ويودي الى خروج الطباعة خارج الهامش الايمن مع العلم انة تم اعداد خاصية الطباعة الى RIGHT TOLEFT=TRUE وكذلك اعداد الهوامش للصفحه الى اخره

امل المساعده

الى المشرفين الاعزاء الى المبرمجين المحترفين سالت هذا السوال اكثر من 100 مره ولم اجد تجاوب امل المساعده

اني اضم صوتي للاخ obeadf

فلقد حدثت معي نفس المشكلة فعند الطباعة نص طويل عربي او انكليزي فعند الوصول الى حافة الورقة لا يتم الطباعة على سطر جديد وانما

يكمل الطباعة على نفس السطر مما يودي الى ذهاب كل الكلام

ارجو من الخبراء الإفادة لاهمية الموضوع

اين الردود يا اخوان

امل المساعدة وناسف للازعاج ولكن بحثت عن هذا الموضوع في اكثر من موقع ومنتدى ولم احصل على نتيجه

:wacko:

كلمه ولو جبر خاطر

لماذا يتم تجاهل هذا الموضوع

اين انتم يا خبراء من هذا السؤال

أقترح عند رفع الموضوع الاكتفاء بكلمة UP أو للرفع وعدم التذمر

الموضوع لم يتم تجاهله وقد حاولت البحث فيه ولكني لم أصل إلى حل مرضي

تحلوا بالصبر ولا تنتظروا الإجابة وإنما حاولوا قدر جهدكم

اخيرا وجدت الحل في احد المواقع الاجنبيه ولكي تعم الفائده فهذا هو الكود

مع العلم اني عدلت الهوامش ومقياس الطباعه حسب حاجتى

اضف مودل وضع بداخله الكود التالي

Const MARGIN_LEFT = 1

Const MARGIN_RIGHT = 1

Const MARGIN_TOP = 2

Const MARGIN_BOTTOM = 2

Sub PrintText(text As String)

Dim i As Integer, j As Integer, currWord As String

Screen.MousePointer = 11

Printer.RightToLeft = True

Printer.ScaleMode = 7

i = 1

Do Until i > Len(text)

currWord = ""

Do Until i > Len(text) Or Mid$(text, i, 1) <= " "

currWord = currWord & Mid$(text, i, 1)

i = i + 1

Loop

If (Printer.CurrentX + Printer.TextWidth(currWord)) > (Printer.ScaleWidth - MARGIN_RIGHT) Then

Printer.Print

Printer.CurrentX = MARGIN_LEFT

End If

End If

Printer.Print currWord;

Do Until i > Len(text) Or Mid$(text, i, 1) > " "

Select Case Mid$(text, i, 1)

Case " "

Printer.Print " ";

Case Chr$(10)

Printer.Print

Printer.CurrentX = MARGIN_LEFT

End If

Case Chr$(9)

j = (Printer.CurrentX - MARGIN_LEFT) / Printer.TextWidth("0")

j = j + (10 - (j Mod 10))

Printer.CurrentX = MARGIN_LEFT + (j * Printer.TextWidth("0"))

Case Else

End Select

i = i + 1

Loop

Loop

Printer.EndDoc

Screen.MousePointer = 0

End Sub

ولامرالطباعه

Private Sub Command2_Click()

Printer.FontSize = 14

Printer.ScaleMode = 7

Printer.CurrentY = 5

Call PrintText(Text2.text)

End Sub

ومافيه تذمر ولاشي ولكن كان ودي ان اي واحد يرد حتى ولو يقول ما ادري ومن قال لااعلم فقد افتى الف شكر للجميع