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

[عاشقة فيجول]

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

[Nanto]

السلام عليكم

الكود حسب معرفتي هو 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
وبهذا نكون قد أنتهينا من تجهيز الداله
وباقى تحديد الكائن المراد طبعه :shock22:
Private Sub Command1_Click()
PrintAnyThing(form1)
End Sub

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

[رنجوجيت]

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

[عاشقة فيجول]

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

[hani992]

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

[المبرمج3]

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

[electronadore]

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