زر طباعة القوائم" بعد تعديل الملف "

[اشرف النعاس]

طلبي هو عند الضغط على زر طباعة القوائم تظهر يوزر فورم  يتم من خلالها  اختيار التوجيه و من تم يتم نقوم بضغط على زر الطباعة تظهر لنا print preview  للقائمة التي تم اختيارها منها نستطيع طباعة القائمة 

قمت بتعديل الملف الاخير

 

Export Workbooks Using Filter Method V1.rar

تم تعديل أغسطس 19, 2015 بواسطه اشرف النعاس

[اشرف النعاس]

هل من رد 

[خالد الرشيدى]

اخى الكريم

عدد الاعمدة كبير جداً ومن ثم عرض الجدول اكبر من ان يظهر بالكامل فى ورقة الطباعة

لهذا هل هناك اعمدة معينة تريد طباعتها... ام اننى لم افهم المطلوب بشكل جيد ...

 

[ياسر خليل أبو البراء]

أخي الكريم

تم إضافة الكود التالي في موديول

Public Sub PrintPreview(FullName As String)
    Dim XL As Excel.Application
    Dim Wrk As Excel.Workbook
    Dim Sht As Excel.Worksheet
    
    If Dir(FullName) = "" Then
        MsgBox "Can't Find File!", vbCritical
        Exit Sub
    End If
    Set XL = New Excel.Application
    Set Wrk = XL.Workbooks.Open(FullName)
    Set Sht = Wrk.ActiveSheet
    
    XL.Visible = True
    XL.WindowState = xlMaximized
    Sht.PrintPreview
    Wrk.Saved = True
    XL.Quit
End Sub

ثم في حدث الفورم حذفت ما كان موجود وأضفت التالي كما حذفت الفورم الثاني نظراً لعدم الحاجة إليه

Private Sub UserForm_Initialize()
    Dim Cell As Range
    For Each Cell In Range("X12:X23")
        ComboBox1.AddItem Cell.Value
    Next Cell
End Sub

Private Sub cmdPrint_Click()
    Dim FullName As String
    If ComboBox1.Value = "" Then MsgBox "لم يتم اختيار مصنف لمعاينة الطباعة", 64: Exit Sub
    FullName = ThisWorkbook.Path & "\Results\" & ComboBox1.Value & ".xlsx"
    Unload Me
    PrintPreview FullName
End Sub

وإليك الملف فيه تطبيق ما طلبت إن شاء الله

لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

تقبل تحياتي

Export Workbooks Using Filter Method V2.rar

تم تعديل أغسطس 20, 2015 بواسطه ياسر خليل أبو البراء

[اشرف النعاس]

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

[ياسر خليل أبو البراء]

إنت كدا بتطلب شيء صعب جداً .. أعتقد إن مفيش مشكلة من الاستخراج لن يستغرق الامر طويلا بعدها يمكنك المعاينة والطباعة كما تريد

جرب الملف التالي عله يفي بالغرض

 

Export Workbooks Using Filter Method V2.rar

[اشرف النعاس]

شكرا اخي يااسربارك الله فيك

 و لكن كيف اختر افضل اجابة ؟