المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : كود طباعة بفيجول بيسك


عاشقة فيجول
09-01-2005, 09:37 PM
مرحبا ياجماعة بليز عندي مشروع تخرج وناقصني كود امر الطباعة يعني انا عاملة فورم وفيه زر بوتون طباعة لمن يضغط عليه المستخدم يطبع الصفحة فأبغى الكود بليييييز ساعدوني الله يخليكم
Nanto
09-01-2005, 10:00 PM
السلام عليكم

الكود حسب معرفتي هو frmMain.PrintForm ، استبدلي frmMain باسم الفورم الذي تريدين طباعته و أنا وضعت frmMain كمثال فقط (يعني الكود اللي بالأزرق هو الأساس)
عاشقة فيجول
10-01-2005, 03:10 AM
جربتها هذي الطريقة مازبطت معي مو راضي يعرف printform
رنجوجيت
10-01-2005, 06:13 AM
أختى العزيزه من فضلك وضحى لى أى نسخه من Visual Basic تستخدميها وإن شاء الله تلاقى الرد عندى
وياريت توضحى تريدى كود الطباعه على ويندوز 98 أم 2000 أم XP لأنى سأستخدم طريقه بدوال API
عاشقة فيجول
10-01-2005, 07:04 PM
انا بستخدم فيجول بيسك 2000واريد الطباعة على اكس بي ...وجزاك الله الف خير
عاشقة فيجول
10-01-2005, 09:20 PM
معلش اخوي انا قصدي بستخدم نسخة فيجول بيسك 2002بس انكتبت معي غلط في الرسالة الاولى حبيت اصلحها واقولك اني بستخدم نسخة 2002والطباعة تكون على اكس بي وشكر جزيلا لك اخوي
رنجوجيت
11-01-2005, 03:33 AM
أختى هذه الطريقه صعبه شويه لكن هى التى ستفيد بالغرض إن شاء الله
بإستخدام عنصر الطباعه 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- جودة الطباعه العاليه
أرجو أن أكون قد وفقت فى هذا الشرح ويكون هذا هو مرادك ;)
رنجوجيت
11-01-2005, 03:34 AM
لأى أستفسار فى هذه الجزئيه أو أى شىء أنا فى الخدمه
عاشقة فيجول
11-01-2005, 08:18 PM
شكرا اخوي جزاك الله الف خير ماقصرت
hani992
19-01-2005, 01:21 AM
انا كمان بدي كود الطباعة للفيجوال بيسك 6 على ويندوز XP
وشكراً
المبرمج3
19-01-2005, 07:30 AM
اهلاً وسهلاً بكم
السلام عليكم ورحمة الله وبركاته وبعد
سوف أحاول ان أفيدكم بقدر الاستطاع ببعض اكواد VB خلال الايام القادمه
electronadore
24-01-2005, 01:59 AM
أشكركجزاكم الله خيرا