مساعدة في تعديل ملف طباعة

[amenbkr]

لدي ايصالات وعندي ماكرو طباعة الايصالات بحاجة الى تعديل بحيث يطبع اوتوماتيكي بحيث يعدل اوتوماتيكي 

excpancepr.rar

[amenbkr]

السلام عليكم اخواني المشكلة كانت الارتباط سابقا على الاسم قمت بتغييره الى رقم الايصال عند الطباعة الكل يقوم بتغيير الاسم الى رقم ارجو المساعدة

[بن علية حاجي]

السلام عليكم

جرب المرفق لعل فيه ما تريد...

بن علية حاجي

excpancepr.rar

[amenbkr]

excpancepr.rarالسلام عليكم

شكرا احي الكريم

عند الطباعة يتبدل الكل ب الفولك اب  بمبدا الارتباط بالرقم بينما في مكان الاسم عند الطباعة بظهر رقم الايصال بينا الصحيخ هو الاسم

لك جزيل الشكر على المساعدة

excpancepr.rar

تم تعديل يناير 1, 2018 بواسطه amenbkr

[بن علية حاجي]

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

لم أفهم قصدك جيدا! إذا كنت تقصد أن الاسم عندك لا يتغير عند طباعة كل الصفحات فهذا راجع إلى أن طريقة الحساب عندك في الإكسل ليست تلقائية وإذا كنت تقصد شيئا آخر فأرجو المزيد من الشرح... وأعلمك لم أمسس معادلاتك في الملف ما عدا معادلة الخلية O1 في شيت "ورقة 1" والتعديل على معادلة التسمية "pv" الخاصة بعمود "رقم الإيصال" في شيت "Sheet1" لجعلها ديناميكية... 

في الملف المرفق من صيغة pdf تجد طباعة ملفك على طابعة Expert PDF والاسم فيه يتغير في كل صفحة...

بن علية حاجي

 

excpanceprn.rar

تم تعديل يناير 1, 2018 بواسطه بن علية حاجي

[amenbkr]

السلام عليكم

اخي الكريم لدي الملف يعطيني اخطاء لا اعرف لماذا  ارسل لك صور كيف يظهر الملف لدي

[بن علية حاجي]

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

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

بن علية حاجي 

excpancepr.rar

[amenbkr]

السلام عليكم

شكرا اخي بن علية حاجي وباقي الاخوة على المساعدة ولكن لدي سؤال اخر وهو عند طباعة الملفات وحفظها كملف pdf  هل يمكن ان ياخد هو رقم الايصال كاسم لحفظ الملف لشكل تلقائي 

[بن علية حاجي]

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

2 ساعات مضت, amenbkr said:

السلام عليكم

شكرا اخي بن علية حاجي وباقي الاخوة على المساعدة ولكن لدي سؤال اخر وهو عند طباعة الملفات وحفظها كملف pdf  هل يمكن ان ياخد هو رقم الايصال كاسم لحفظ الملف لشكل تلقائي 

نعم هذا ممكن جدا، يكفي عند تحضير كود طباعة الإيصالات في ملف pdf أن نعطيه اسمه من الخلية التي تحوي رقم الإيصال (وفي ملفك هي الخلية G6)...

بن علية حاجي

[amenbkr]

أين |أخي اضع الاسم الرجاء المساعدة 

هذا كود الطباعة

Sub Printing()
Dim I As Integer
  For I = 1 To [I1]
    If I <= [I1] Then
       [I2] = I
       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End If
  Next
End Sub
 

[بن علية حاجي]

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

23 ساعات مضت, amenbkr said:

أين |أخي اضع الاسم الرجاء المساعدة 

هذا كود الطباعة

Sub Printing()
Dim I As Integer
  For I = 1 To [I1]
    If I <= [I1] Then
       [I2] = I
       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End If
  Next
End Sub
 

في هذه الحالة يجب تغيير هذا الكود بالكود التالي:

Sub Printing()
Dim I As Integer
  For I = 1 To [I1]
    If I <= [I1] Then
       [I2] = I
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
          ThisWorkbook.Path & "\" & I, Quality:=xlQualityStandard, _
          IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End If
  Next
End Sub

سيقوم هذا الكود بحفظ الملفات بصيغة pdf بالتسمية حسب قيم المتغير I في الكود أي: pdf.1 و 2.pdf و 3.pdf و 4.pdf وهكذا إلى آخر قيمة قيمة للمتغير I ويكون الحفظ في مسار الملف الذي تم تنفيذ الكود منه...

بالنسبة للملف excpancepc.xlsb (الملف المرفق بالأعلى -الأخير-) نقوم بتبديل كود aaaa بالكود التالي:

Sub aaaa()
Dim Rng As Range
Dim x As Long, y
Set Rng = Sheets("Sheet2").Range("A2:A" & Sheets("Sheet2").Range("A60000").End(xlUp).Row)
y = Sheets("Sheet1").Cells(1, 15).Value
  For x = 1 To y
    Sheets("Sheet1").Cells(7, 7).Value = Application.Index(Rng, x)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & Sheets("Sheet1").Cells(7, 7).Value, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  Next
  Sheets("Sheet1").Cells(7, 7).Value = Application.Index(Rng, 1)
End Sub

والله أعلم