Sub طباعة()
'
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Msg = "* هل تريد الطباعة * "
ans = MsgBox(Msg, vbYesNo, " طباعة ")
If ans = vbYes Then
Else
Exit Sub
End If
Application.Dialogs(xlDialogPrinterSetup).Show
Dim Numcop As Long
Numcop = Application.InputBox("أدخل عدد النسخ للطباعة:", "كم عدد النسخ?", 1, Type:=1)
If Numcop = 0 Then
ElseIf Len(Numcop) > 0 Then
End If
ActiveWindow.SelectedSheets.PrintOut copies:=Numcop
Dim FS As Worksheet, TS As Worksheet
Dim WS As Worksheet, SH As Worksheet
Dim x As Long, i As Long, Arr
Set WS = Sheets("عهدة"): Set SH = Sheets("data")
x = SH.Cells(Rows.Count, 3).End(3).Row + 1
Arr = Array("a4", "B4", "C4", "D4", "E4", "F4")
For i = LBound(Arr) To UBound(Arr)
If Arr(i) <> "" Then Arr(i) = WS.Range(Arr(i)).Value
If IsEmpty(Arr(i)) Then MsgBox "البيانات غير كاملة يرجى إكمال كافة الحقول": Exit Sub
Next i
With SH
.Cells(x, 1) = .Cells(x, 1).Row - 2
.Cells(x, 2).Resize(, UBound(Arr) + 1) = Arr
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub