كيف اجعل الكود يواصل العمل والترحيل عند عدم الرغبة في الطباعة

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