اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

Sub PrintOut()
 For i = 1 To [INDIRECT(B3)].Rows.Count
    [d3] = Application.Index([INDIRECT(B3)], i)
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
 Next
    [d3] = Application.Index([INDIRECT(B3)], 1)
End Sub

هل من الممكن تحويل هذا الكود الذي في الاعلا من طباعة الملفات في القائمة المنسدلة الى حفظها كلها ثم طباعتها

ولكم الشكر والتقدير

قام بنشر (معدل)

اذا كنت ترغب في الحفظ كملف بي دي أف 

يمكنك استخدام الكود التالي

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & يتم وضع الاسم المراد الحفظ به أو الاشارة الى خلية وسوف يتم تسمية الملف بمحتوى الخلية, Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

 

أو اذا كنت ترغب بالحفظ العادي يمكنك استخدام 

 

this workbook.save

 

تم تعديل بواسطه أبو إيمان
  • Like 2
قام بنشر

اشكرك ابو ايمان على جهدك 

ولكن لم يعمل الكود معي كما ارغب في حفظ كل ما في القائمة المنسدلة 

قام بنشر (معدل)

يتم  تخزين الفاتورة   مكان تواجد الملف الرئيسي

 

تفضل  بيات توزيع المواد الغذائية.xlsm

بيات توزيع المواد الغذائية (2).xlsm

تم تعديل بواسطه محمد يوسف ابو يوسف
  • Like 1
قام بنشر

بالفعل  يوجدكود بالملف PDF و ايضاً  xlsm

 

 

لتوضيح تفضل نسخة من بيات توزيع المواد الغذائية (2).xlsm

 

الكود المستخدم

Sub PDF()
 Dim fName As String
 
 
 
Application.ScreenUpdating = False '
Application.DisplayAlerts = False  ''

 With Worksheets("mo1")

    fName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))

End With

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Cells(3, 6).Text, Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Application.ScreenUpdating = True  '
Application.DisplayAlerts = True  ''

End Sub

 

  • Like 2
قام بنشر (معدل)

جزاكم الله خيرا ونفع بكم الاسلام والمسلمين

وحفظكم الله جميعا

تم تعديل بواسطه asad1391
  • تمت الإجابة
قام بنشر

بعد إذن أخونا محمد يوسف 

 

قم بتجربة الكود في الملف التالي والذي سوف يقوم بالحفظ كملف PDF بشكل تلقائي لكل الأسماء الموجودة في القائمة المنسدلة الموجودة في الخلية D3

 

 

بيات توزيع المواد الغذائية 002.xlsm

  • Like 3
قام بنشر (معدل)

احسن الله اليكم 

وبارك الله فيك يابو ايمان وهذا هو المطلب تماما

وجزاكم الله خيرا

تم تعديل بواسطه asad1391

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information