ما الحل في اختلاف الطباعة من طابعة إلى أخرى ؟

هيا يا شباب لنجد الحل لكي نتغلب على هذه المشكلة الكبيرة

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

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

تحياتي

تأكد من نوع الخط

fontname لطابعة واجعله موحدا في الجهازين مثلا

printer.fontname="arial"

وايضا من خصائص الطابعة تأكد من جودة الطباعة printQuality واجعلها ايضا واحدة

وبالتعوفيق ان شاء الله

شكرا لكم بس انا فعلت ذلك و لكن بدون فائدة تذكر

كتبت هذه الأكواد:

Private Sub Command1_Click()

Printer.CurrentX = 2500

Printer.CurrentY = 9620
Printer.FontName = "arial"
Printer.PrintQuality = 1
Printer.Orientation = 1
Printer.ForeColor = &H404040
Printer.RightToLeft = True
Printer.Font.Bold = True
Printer.FontSize = 12
Printer.Print Text1.Text

End Sub

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

الطابعة الأولى: hp psc 1215 والثانية hp laserJet 1200 series

جرب اكتب الكود هذا

Printer.Scalemode = 7

حيث أن الرقم 7 يعني السنتيمتر للمسافات المحددة في X و Y

أعتقد أنه لا بد من توحيدها في جميع الطابعات بأن تكون واحدة... تحياتي

جربت ذلك ولكن نفس المشكلة

ارجو ان تشرح لي هذه العبارة فربما هنا مربط الفرس " أعتقد أنه لا بد من توحيدها في جميع الطابعات بأن تكون واحدة " كيف يتم ذلك ؟؟

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

شكرا لك

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

فمهما كانت إعدادات الطابعة سوف تتغير حسب الكود اللي انته عامله في برنامجك مثلاً لو انت عملت برنامج وفي كود الطباعة الصفحة بالعرض في كوماند 1 وفي كوماند 2 طباعة الصفحة بالطول عند تنفيذ الكوماند 1 سوف تبقى الطابعة تطبع بالعرض وجرب تنفيذ الكود الخاص بكوماند 2 بدون تغيير الطابعة للطباعة بالطول .. تلاحظ ذلك حتى تغير الطابعة بالطول عندها تطبع ما قمت به من إعدادات جديدة .. تحياتي