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

كيف يمكن عمل الprint Daialog

بدأه abdallah 12 في 30 أغسطس 2009 · 1 رد · 468 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أهلاً ومرحباً .. أهلا بمن أتانا بتحية وسلام يريد الترحيب بأحلى الكلام .. يريد أن نعلن له الأنضمام .. إلى كوكبة أعضائنـا الكرام ،،السلام عليكــم ورحمـة الله وبركاتــه

، ،بســم الله الـرحمــن الرحيــمكيف حالك إن شاء الله دائمــاً بخير ؟ألف مبروك .. لقد سعدت بهذا الخبرالحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

اقتباس
كيف يمكنني عمل ال print dialogارجو منكم الاجابة

شكراً لك اخي الكريم

#2

هذا كود مشروح لكيفية إضهار نافذة اختيار الطابعة و تحديد خصائصها :

Imports System.Drawing.Printing

Public Class Form1

	Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
		' إنشاء الكائن المسير لنافذة الطبع
		Dim pdlg As New PrintDialog()
		' إضهار النافذة
		If pdlg.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then ' إذا نقر المستخدم على الزر OK
			' إنشاء الكائن الذي على سطحه سيتم رسم محتوى الصفحة
			Dim pdoc As New PrintDocument()
			' تحديد الطابعة في التي اختارها المستخدم
			pdoc.PrinterSettings = pdlg.PrinterSettings
			' تحديد الدالة المشتركة في الحدث Print
			AddHandler pdoc.PrintPage, AddressOf Print_Page
			' طبع صفحة تجريبية
			pdoc.Print()
		End If
	End Sub

	' الدالة التي سيتم المناداة عليها لطبع الصفحة
	Private Sub Print_Page(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
		ev.Graphics.DrawString("Teste", Me.Font, Brushes.AliceBlue, 0, 0)
	End Sub
End Class

تحياتي...

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