تحويل كود من الطباعة الى الحفظ

[asad1391]

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

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

 

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

[asad1391]

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

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

[محمد يوسف ابو يوسف]

السلام عليكم 

اين  الملف المراد العمل عليه

لاتنتظر مساعده دون ارسال ملف مدعوم بشرح

[asad1391]

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

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

[بلانك]

يعطي خطأ في الكود غيرت الى mo1 باسم ورقة الشيت

[محمد يوسف ابو يوسف]

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

 

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

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

تم تعديل يناير 26 بواسطه محمد يوسف ابو يوسف

[أبو إيمان]

حفظ نشخة كملف اكسيل أو ملف بي دي اف

[asad1391]

pdf

حفظكم الله

[محمد يوسف ابو يوسف]

بالفعل  يوجدكود بالملف 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

 

[asad1391]

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

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

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

[أبو إيمان]

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

 

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

 

 

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

[asad1391]

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

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

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

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

[أبو عبد الله _]

جميل

تم تعديل يناير 30 بواسطه أبو عبد الله _

[أبو إيمان]

وأحسن إليكم 

ونتمنى لكم التوفيق 

والشكر موصول للاستاذ بن علية لان هناك اقتباس في الكود من أحد حلوله 

[asad1391]

اشكر الجميع علي حسن التعامل وجميل التعاون