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

[ahmed fouad1]

ليبل - Copy.xlsx

محتاج اعمل زرار عمل يطبعلى عدد النسخ المكتوبة بجواؤ كل صفحة

[ahmed01111]

جرب بعد تعديل a1 بالخليه الى محتاج تحط فيها الرقم النسخ بتاعك

ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _
        IgnorePrintAreas:=True

 

تم تعديل يناير 17, 2023 بواسطه ahmed01111

[ahmed fouad1]

تمام زي الفل
بس لما بيبقا الكمية صفر بيدي خطأ في المعادلة

[أبو إيمان]

إذا كنت تريد عدم الطباعة يمكن كتابة احد الصيغ التالية  وبجوار End sub نكتب 30

On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _
        IgnorePrintAreas:=True

  أو 
If Range("a1") = 0 Then GoTo 30

ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _
        IgnorePrintAreas:=True
        
        End If
        

واذا كنت تريد طباعة نسخة على الاقل يمكنك كتابة التالي

If Range("a1") = 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=True
        Else
      ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _
        IgnorePrintAreas:=True
        
        End If

 

 

تم تعديل يناير 19, 2023 بواسطه أبو إيمان

[ahmed fouad1]

شكرا جدا تم التنفيذ بنجاح 💗

[أبو إيمان]

بالتوفيق إن شاء الله