تعلم الطباعة

الطباعة :-

السلام عليكم وحمة الله وبركاته

هذه مشاركتي الاولى في هذا المنتدى الرائع والتي أتمنى ان يستفيد منها الجميع...

1-يمكنك طباعة الفورم من الكود التالي :

Private Sub Command1_Click()
Me.PrintForm
End Sub

2-كما يمكنك استخدام كائن الطابعة ((Printer في الطباعة :

Private Sub Command2_Click()
Printer.Print Text1.Text
Printer.EndDoc
End Sub

وتستطيع كذلك التحكم في خصائص الطبع كالأتي:

Private Sub Command3_Click()
Printer.RightToLeft = True
Printer.FontSize = 40
Printer.ForeColor = vbRed
Printer.Print Text1.Text
Printer.EndDoc
End Sub

[

ويمكنك تحديد نوع الطابعة المعرفة لديك في الكمبيوتر عن طريق الكود التالي:

Private Sub Form_Load()
Dim omar As Integer
For omar = 0 To Printers.Count - 1
List1.AddItem Printers(omar).DeviceName
Next
End Sub

Private Sub List1_Click()
Set Printer = Printers(List1.ListIndex)
End Sub