الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشروع لطباعة على ستكرات

مغلق
بدأه الشهابي في 16 يناير 2008 · 8 رد · 1,208 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اخواني اني اعمل على مشروع ولكن ينقصني شي واحد وياريت تساعدوني الله يخليكم

قسم من هذا المشروع الي اعمل عليه انه يكون فيه فورم فيه كذا تكست بوكس مثلا الاسم والرقم والعنوان و....

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

ابي مثلا الشخص كتب في خانة الاسم مثلا الفريق العربي للبرمجة والرقم 123456789 والخ من المعلومات

اقوم انا بوضع الستكر في الطابعة واضغط امر طباعة فيقوم بطباعة مثل هذا الشكل مثلا

الفريق العربي للبرمجة

123456789

قسم فيجوال بيسك 6

اتمنى فهمتو قصدي

#2 
Private Sub Command1_Click()
	Printer.FontName = "Tahoma"
	Printer.FontSize = 10
	Printer.Print "الفريق العربي للبرمجة "
	Printer.Print "123456789"
	Printer.Print "قسم فيجوال بيسك 6"
	Printer.EndDoc
End Sub

و لو عايز تطبع BarCode ب نفس الطريقة بس هتختار خط BarCode

#3

مشكوووووووور اخوي على الكود

بس بغيت الكود حق كل شي يعني التكست بوكس والفورم نفسها اذا احد يقدر يسوي مثال راح اكون له شاااااااكر

#4

كل ما عليك هو انشاء تكست بوكس لكل معطى تريد طباعته ثم تكتب

Printer.Print Text1
Printer.Print Text2

وهكذا

من أقوال الأئمة

الإمام علي بن أبي طالب -رضي الله عنه-: "الناس ثلاثة : فعالم رباني ، ومتعلم على سبيل النجاة ، وهمج رِعاع غوغاء أتباع كل ناعق ، يميلون مع كل ريح ، لم يستضيئوا بنور العلم ، ولم يلجئوا إلى ركن وثيق".

الإمام مالك -رحمه الله- : " لن يصلح آخر هذه الأمة إلا بما أصلح به أولها ".

الإمام الأوزاعي -رحمه الله- : " عليك بآثار من سلف وإن رفضك الناس وإياك وآراء الرجال وإن زخرفوه لك بالقول ".

الإمام الفضيل بن عياض -رحمه الله- : " عليك بطرق الهدى و لا يضرك قلة السالكين و إياك و طرق الضلالة ولا يغرك كثرة الهالكين ".

علامة الزمان الإمام الألباني -رحمه الله- : " إن الخلاص إلى أيدي هؤلاء الشباب يتمثل في أمرين لا ثالث لهما ؛ التصفية والتربية ".

وكل خير في اتباع من سلف وكل شر في ابتداع من خلف

#5

اخوي بس تصير لي مشكلة

وهي انه الورقة تمر في الطابعة بس جذي يعني ماينطبع شي

شلون اخليها تطبع او اني اعرف البرنامج على البرنت

#6 
Private Sub Command1_Click()
	Printer.FontName = "Tahoma"
	Printer.FontSize = 10
	Printer.Print Text1
	Printer.Print Text2
	Printer.Print Text3
	Printer.EndDoc
End Sub

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

تأكد أنك أدخلت بيانات في تكست بوكس

بعد ذلك اضغط على كوماند

تم تعديل هذه المشاركة بواسطة باسم الموجي في 17 يناير 2008 في 20:38

من أقوال الأئمة

الإمام علي بن أبي طالب -رضي الله عنه-: "الناس ثلاثة : فعالم رباني ، ومتعلم على سبيل النجاة ، وهمج رِعاع غوغاء أتباع كل ناعق ، يميلون مع كل ريح ، لم يستضيئوا بنور العلم ، ولم يلجئوا إلى ركن وثيق".

الإمام مالك -رحمه الله- : " لن يصلح آخر هذه الأمة إلا بما أصلح به أولها ".

الإمام الأوزاعي -رحمه الله- : " عليك بآثار من سلف وإن رفضك الناس وإياك وآراء الرجال وإن زخرفوه لك بالقول ".

الإمام الفضيل بن عياض -رحمه الله- : " عليك بطرق الهدى و لا يضرك قلة السالكين و إياك و طرق الضلالة ولا يغرك كثرة الهالكين ".

علامة الزمان الإمام الألباني -رحمه الله- : " إن الخلاص إلى أيدي هؤلاء الشباب يتمثل في أمرين لا ثالث لهما ؛ التصفية والتربية ".

وكل خير في اتباع من سلف وكل شر في ابتداع من خلف

#7

شكرا اخوي ماتقصر صراحة تعبتك وياي

بس المطلوب ماصار يعني لمن اخلي الستكر او الليبل مايطلع عليه بالظبط الكلام

يعني انا عندي ستكرات مثل الي تنلصق على علب الدواء او لين مثلا مريض يلصقون له على اوراقه ستكرات بشكل مستطيل صغير

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

#8

وينكم !!

#9

تفضل الكود :

 'يمين يسار
Printer.CurrentX = 8500
'فوق و تحت
Printer.CurrentY = 10500
Printer.Print Text1.Text

Printer.EndDoc

تم تعديل هذه المشاركة بواسطة alhootti في 23 يناير 2008 في 23:33

هذا الموضوع مغلق.

مواضيع مشابهة