تعديل كود للطباعة على a3 أو a4

[أبو زهرة]

السلام عليكم 

مرفق ملف به كود طباعة يقوم بطباعة الصفوف المليئة فقط 

أريد تعديله بحيث  يكون عندى خيارين ( الطباعة على  a3   ) أو( الطباعة على  a4 )مع مراعاة إعدادات الطباعة لكل نوع 

ولكم جزيل الشكر

طباعة.rar

[مختار حسين محمود]

أخى أبو زهرة جرب هذا الكود

Sub ChangingPaperSize()

Application.ScreenUpdating = False
Dim Cl As Range

blnAns = Application.InputBox("أدخل 3 للطباعة على ورق 3" & vbCr & "أدخل 4 للطباعة على ورق 4", "اختر نوع ورق الطباعة", , , , , , 4)
If blnAns = 3 Then


For Each Cl In Range("e11:e35")
        If Cl.Value = "" Or Cl.Value = 0 Then
        Cl.EntireRow.Hidden = True
        End If
        With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 2
        .FitToPagesTall = 1
        .PaperSize = xlPaperA3
    On Error Resume Next
    End With
        Next Cl
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Else

For Each Cl In Range("e11:e35")
        If Cl.Value = "" Or Cl.Value = 0 Then
            Cl.EntireRow.Hidden = True
        End If
        With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 2
        .FitToPagesTall = 1
        .PaperSize = xlPaperA4
    On Error Resume Next
    End With
        Next Cl
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
 
End If

Rows("11:36").Select
Selection.EntireRow.Hidden = False
Range("A1").Select

Application.ScreenUpdating = True
End Sub