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

طباعه الفاتوره على الreceipt Printer

مغلق
بدأه major_47 في 1 أكتوبر 2007 · 2 رد · 532 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

وبعد

أنا أقوم بعمل برنامج Point Of sales

بأستخدام الفيجوال بيزيك 6

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

باسخدام Receipt Printer

أنا أستخدمت الكود القادم

اقتباس

Printer.FontName = "Courier New"

Printer.FontSize = 10

'*** Report Header ***

Call PageHeader

'*** Detail Section ***

mrl.MoveFirst

Do Until mrl.EOF

Font.Size = 20

Printer.Print mrl!Quntitative & " | " & sText & " | " & mrl!unit_Price

mrl.MoveNext

Loop

'*** Report Footer ***

Printer.Print String(75, "-")

Printer.Print "*** End of Report ***"

Call PageFooter

'*** End Of Report ***

Printer.EndDoc

و النتيجه كانت غير مرضيه بالمره

==========================================================

Code Description unit_Price

==========================================================

1001 | ABC TRADERS |11

1002 | XYZ BROTHERS | 12

1003 | FALCON CEMENT |10

1004 | NET CON EXPORTERS | 1

--------------------------------------------------------------------------

وطبعا زى ما هوه موضح أمامكم أن الصفوف غير مظبوطه بالمره

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

checkgl8.gif

وشكرا

#2

اخى الكريم جرب الكود التالى مع تغيير الأالعرض والإرتفاع بما يناسب ورقة الطباعة

'استبدل السطر
'Printer.Print mrl!Quntitative & " | " & sText & " | " & mrl!unit_Price

'بالتالى مع تغير الأرقام بماينسب الشكل المطلوب
r = r + 200
Printer.CurrentX = 100
Printer.CurrentY = r
Printer.Print mrl!Quntitative & " | "
Printer.CurrentX = 2000
Printer.CurrentY = r
Printer.Print sText & " | "
Printer.CurrentY = r
Printer.CurrentX = 3500
Printer.Print mrl!unit_Price

ارجو ان يفى بالغرض

كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر

#3

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

مع أنى مش فاهم أزاى أغير الأرقام حسب الحاجه

وده لاأن موضوع الX, Y بتوع الأحداثيات ده أنا مش فاهمه كويس

أنا سأحاول توفيق الموضوع و أتمنى منك أخى العزيز مذيد من الشرح عن تغير الY و X

و جذاكم الله كل خير

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

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