طبع الوصولات جملة واحدة

[ابايوسف]

السلام عليكم

سبق وعملت موضوع بخصوص طبع الوصولات - واشارة الى توجيهات الاخوة 

عملت هذا الملف 

المطلوب - طبع الوصولات جملة واحدة حسب الرقم الموجود في شيت الارقام المختارة

طبع الوصولات جملة واحدة حسب الارقام المختارة.xlsm

[محمد حسن المحمد]

وعليكم السلام ورحمة الله وبركاته

أرجو أن يكون الحل مناسباً

طبع الوصولات جملة واحدة حسب الارقام المختارة.xlsm

[ابايوسف]

جزيت خيرا

هو المطلوب

يرحم والديك

[محمد حسن المحمد]

وجزاكم بمثل ما دعوتم أخي الكريم

الحمد لله الذي بنعمته تتم الصالحات

تقبل تحياتي العطرة لشخصكم الكريم

والسلام عليكم ورحمة الله وبركاته

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته

أخي الكريم أجريت التعديل التالي على الملف المرفق لتكون الطباعة لديك ديناميكية لتحصل من خلالها مدى الطباعة كاملاً قل أو كثر كما تم تغيير الطباعة من أفقيه إلى عمودية

ملاحظة:  يرجى الانتباه إلى أنك إذا غيرت بإعدادات الطباعة سيتحول نطاق الطباعة إلى نطاق محدد وقد يكون أكبر مما هو محدد في تحرير الاسم في الصورة أدناه... فإن تغير ووجدت أن النطاق المراد  طباعته أصبح أكبر فعليك بنسخ الكود أدناه ووضعه في مربع تحرير الاسم Print_Area 

Print_Area
=OFFSET(الوصل!$C$1;;;COUNT(الوصل!$C$8:$C$200)+8;8)

أما في الكود فقد تم وضع Print_Area كمدىً بدلاً من تحديده من خلية إلى أخرى

على الشكل التالي:

Private Sub CommandButton1_Click()
       Dim I As Long
            For I = Range("N8").Value To Range("O8").Value
                Sheets("البودرة").Range("A1:S8044").AdvancedFilter Action:=xlFilterCopy, _
                CriteriaRange:=Range("N1:P2"), CopyToRange:=Range("C6:J6"), Unique:=False
                Range("N7").Value = I
                Range("Print_Area").Select
            ActiveWindow.SelectedSheets.PrintOut Copies:=1
        Next I
End Sub

والله ولي التوفيق والسلام عليكم ورحمة الله وبركاته

أخوكم أبو يوسف

طبع الوصولات جملة واحدة حسب الارقام المختارة.xlsm