كود لطباعة الفورم

كود لطباعة الفورم

Code VBA To Print UserForm

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

نحتاج كثيرا لطباعة مباشرة لنموذج المستخدم الـ UserForm
نظرا لرغبتنا مثلا فى طباعة النموذج بنفس التنسيق الخاص بالـ UserForm

ونواجه مشاكل كثيرة فى الطباعة ، فأحيانا نحتاج لإظهار بعض الكائنات أو إخفاؤها مثل الـ Buttons  الأزرار
أو صناديق النصوص الـ Textbox
مع تحديد عدد النسخ التى نرغب فى طباعتها

تلميحات

* ستطلب منك عدد النسخ المطلوب طباعتها
* يمكنك إضافة ما ترغب فى إخفاؤه سواء كان Buttons  أو غيره بنفس الأسلوب المتبع بالشفرة
* يجب أن يكون تنسيق الـ UserForm مرتب خاصة للكائنات التى ترغب فى إخفاؤها مثال :
   اذا كان لديك عدد من الـ Buttons   مثلا عددهم 7
   تكون اسماؤهم ثابته ومرتبه كالتالي :
   CommandButton1
   CommandButton2
   CommandButton3
   وهكذا الى رقم 7
   وبالمثل لأى كائن آخر مثل الـ Textbox

الشفرة

'Permits any person to use this code provided that the source is mentioned
'https://elshriefacademy.blogspot.com

Sub Print_UserForm()
On Error Resume Next
Dim Count As Integer
Dim Comm As Integer

If MsgBox("Do you want to print this form? " & _
vbYesNo + vbQuestion + vbMsgBoxRight, "Confirm print ") = vbYes Then
    Count = InputBox("Please enter the number of copies you want to print?" & _
    Chr(13) & Chr(13) & "Default one copy", "Number of copies", "1")
   '==================================
    'Hide buttons while printing
    'Add what you want to hide in the same way
    For Comm = 1 To 3
        Me.Controls("CommandButton" & Comm).Visible = False
    Next Comm
   '==================================
    Me.Hide
   '==================================
   'The number of copies required to print
    Do Until Count = 0
        Me.PrintForm
        Count = Count - 1
    Loop
   '==================================
End If
End
On Error GoTo 0
End Sub