مشكلة في طباعة و استخراج تقرير بصيغة pdf

[moho58]

السلام عليكم الإخوة الكرام في هذ المنتدى الجميل

عندي مشكلة كمايلي :

من النموذج FORMS1

عند اختيار السنة 2023 تم اختيار  (معلم) تظهر القائمة الاسمية وفيها

خالد خالد

لكن عند الضغط على زر  طباعة التقرير   أو  على زر تحويل التقرير إلى صيغة PDF

يتم طباعة أو استخراج الى صيغة  PDF   القائمة الاسمية للجميع وهي

خالد خالد

أحمد أحمد

من فضلكم حل لهذه المشكلة وبارك الله فيكم

 

BASEB.accdb

[Foksh]

جرب هذه الطريقة :

 

BASEB.accdb

[moho58]

26 دقائق مضت, Foksh said:

جرب هذه الطريقة :

 

BASEB.accdb 2.64 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

مشكور أخي وبارك الله فيك على الرد

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

[سامي الحداد]

تفضل اخي الكريم هذا الكود لتحويل التقرير إلى صيغة pdf 

Private Sub أمر65_Click()

    Dim varItem As Variant
    Dim myWhere As String
    Dim Criteria As String
    Dim ReportName As String
    
    ReportName = "rap_liste_stagiere_grade_groupe1"
    
    Criteria = varItem
    myWhere = ""
    
    ' Loop through the selected items in the ListBox
        For Each varItem In Me.lst_XX.ItemsSelected
    ' Add each selected item to the string
        myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', "
    Next varItem
    
    ' Remove the trailing comma and space from the string
        myWhere = Left(myWhere, Len(myWhere) - 2)
    
    DoCmd.OpenReport "rap_liste_stagiere_grade_groupe1", acViewPreview, , "[grade] in (" & myWhere & ")"
    DoCmd.OutputTo acOutputReport, ReportName, acFormatPDF
    DoCmd.Close acReport, ReportName, acSaveNo
    
End Sub

نفس الكود تستطيع ان تستخدمه في طباعة التقرير مع تغير بسيط في هذا السطر  DoCmd.OutputTo acOutputReport, ReportName, acFormatPDF

بالتوفيق

[ابو جودي]

 

5 ساعات مضت, moho58 said:

السلام عليكم الإخوة الكرام في هذ المنتدى الجميل

عندي مشكلة كمايلي :

من النموذج FORMS1

عند اختيار السنة 2023 تم اختيار  (معلم) تظهر القائمة الاسمية وفيها

خالد خالد

لكن عند الضغط على زر  طباعة التقرير   أو  على زر تحويل التقرير إلى صيغة PDF

يتم طباعة أو استخراج الى صيغة  PDF   القائمة الاسمية للجميع وهي

خالد خالد

أحمد أحمد

من فضلكم حل لهذه المشكلة وبارك الله فيكم

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

طيب فكرتى المتواضعة 

لو اعجبتك سوف أقوم بعمل بعض التعديلات اللازمة لاضفاء مرونة اكثر 

BASEB (Judy).accdb

[moho58]

 

2 ساعات مضت, سامي الحداد said:

تفضل اخي الكريم هذا الكود لتحويل التقرير إلى صيغة pdf 

Private Sub أمر65_Click()

    Dim varItem As Variant
    Dim myWhere As String
    Dim Criteria As String
    Dim ReportName As String
    
    ReportName = "rap_liste_stagiere_grade_groupe1"
    
    Criteria = varItem
    myWhere = ""
    
    ' Loop through the selected items in the ListBox
        For Each varItem In Me.lst_XX.ItemsSelected
    ' Add each selected item to the string
        myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', "
    Next varItem
    
    ' Remove the trailing comma and space from the string
        myWhere = Left(myWhere, Len(myWhere) - 2)
    
    DoCmd.OpenReport "rap_liste_stagiere_grade_groupe1", acViewPreview, , "[grade] in (" & myWhere & ")"
    DoCmd.OutputTo acOutputReport, ReportName, acFormatPDF
    DoCmd.Close acReport, ReportName, acSaveNo
    
End Sub

نفس الكود تستطيع ان تستخدمه في طباعة التقرير مع تغير بسيط في هذا السطر  DoCmd.OutputTo acOutputReport, ReportName, acFormatPDF

بالتوفيق

بارك الله فيك أخي الكريم وجعله الله في ميزان حسناتك  هذا ما أريده بالضبط

 

تم تعديل أكتوبر 8, 2023 بواسطه moho58

[moho58]

أشكركم أخواني الكرام على المتابعة والتفاعل مع الموضوع

جعلها الله في ميزان حساناتكم أن شاء الله