كود طباعة بفيجول بيسك

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

السلام عليكم

الكود حسب معرفتي هو frmMain.PrintForm ، استبدلي frmMain باسم الفورم الذي تريدين طباعته و أنا وضعت frmMain كمثال فقط (يعني الكود اللي بالأزرق هو الأساس)

جربتها هذي الطريقة مازبطت معي مو راضي يعرف printform

أختى العزيزه من فضلك وضحى لى أى نسخه من Visual Basic تستخدميها وإن شاء الله تلاقى الرد عندى
وياريت توضحى تريدى كود الطباعه على ويندوز 98 أم 2000 أم XP لأنى سأستخدم طريقه بدوال API

انا بستخدم فيجول بيسك 2000واريد الطباعة على اكس بي ...وجزاك الله الف خير

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

أختى هذه الطريقه صعبه شويه لكن هى التى ستفيد بالغرض إن شاء الله
بإستخدام عنصر الطباعه Printer Object
هذا الكود لتحديد الإحداثيات لهامش الركن العلوى الأيسر للصفحه المطبوعه
Printer.scaleLeft
Printer.ScaleTop
هذه الخاصيتان لتحديد الركن العلوى الأيسر لوضع مخرجات الطباعه من النص والرسم
Printer.CurrentX
Printer.CurrentY
وإليكى مثال لتسهيل الأمر مثال إذا أردنا طباعة الفورم كله بما يحتويه فسيكون الكود كالأتى :-
هذه داله بسيطه لطباعه أى كائن يتم تحديده

private Sub PrintAnything ( PrintObject as control (

سنقوم بتعريف هذه المتغيرات الخاصه بالإحداثيات ولوازم الطباعه
dim Dx as integer,Dy as integer,PX as interger,Py as integer
dim CapTXT as string
هذه المتغيرات التى ستحمل قيمة طول وعرض الشىء المراد طبعه
Dx = PrintObject.width
Dy = PrintObject.Height
هذه المتغيرات التى ستحمل قيمة إحداثيات الشىء المراد طبعه
PX = PrinterObject.Left
PY = PrinterObject.Top
هذا المتغيرالذى سيحمل الأسم المظهرى للشىء المراد طبعه
CapTXT = PrinterObject.Caption
PrinterObject.DrawWidth = 2
هنا سنرسل المعلومات لكائن الطباعه من إحداثيات وطول وعرض إلخ...
printer.CurrentX = PX
printer.CurrentY = PY

printer.Line (DX,DY), ,B

printer.CurrentY = PY + ((DY - Printer.textHeight(CapTXT)) / 2)

printer.CurrentX = PX + ((DX - Printer.textHeight(CapTXT)) / 2)
وهنا لطباعة Caption للكائن المراد طبعه
Printer.Print PrinterObject.Caption
كود طباعة الكائن كله على الورقه
Printer.EndDoc
end Sub
وبهذا نكون قد أنتهينا من تجهيز الداله :D
وباقى تحديد الكائن المراد طبعه :shock22:
Private Sub Command1_Click()
PrintAnyThing(form1)
End Sub

هذه الطريقه من الطباعه عيبها الوحيد كم الخطوات البرمجيه لطباعة نموذج واحد :06:
ولكن تتميز بشيئين :biggthump
1- تحكم أكثر فى شكل ورقة الطباعه
2- جودة الطباعه العاليه
أرجو أن أكون قد وفقت فى هذا الشرح ويكون هذا هو مرادك ;)

لأى أستفسار فى هذه الجزئيه أو أى شىء أنا فى الخدمه

شكرا اخوي جزاك الله الف خير ماقصرت

انا كمان بدي كود الطباعة للفيجوال بيسك 6 على ويندوز XP
وشكراً

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

أشكركجزاكم الله خيرا