اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


asad1391
إذهب إلى أفضل إجابة Solved by أبو إيمان,

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

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

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
رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

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

 

 

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

  • Like 3
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information