كود تصدير التقريرلأنواع مختلفة من الملفات .. قديم

[أبو نادر]

السلام عليكم

 

جربت هذا الكود .. ولكن يصدر التقرير لاصدار قديم في الاكسل

 

انا شغلي على اوفيس  2013

 

    DoCmd.OutputTo acReport, stDocName

 

هل يوجد كود غيره؟

[بحار الاكسس]

DoCmd.OpenReport "report name", acViewPreview

    DoCmd.RunCommand acCmdExportRTF

تم تعديل مايو 15, 2016 بواسطه بحار الاكسس

[أبو نادر]

شكرا بحار ولكن مو ذا المطلوب

 

جرب هاالكود على تقرير عندك وشوف وش يطلعلك

 

Private Sub أمر132_Click()
On Error GoTo Err_أمر132_Click

    Dim stDocName As String

    stDocName = "reportname"
    DoCmd.OutputTo acReport, stDocName

Exit_أمر132_Click:
    Exit Sub

Err_أمر132_Click:
    MsgBox Err.Description
    Resume Exit_أمر132_Click
End Sub

اذا اضفت تقرير بهاالكود وضغطت على زر الأمر تأتي هذا النافذه ... وبيصدر التقرير الى اصدار قديم للاكسل .. وانا ابغى لاصدار احدث

 

 

[يسرى]

    DoCmd.OutputTo acOutputQuery, "report name", "", "", False, "", , acExportQualityPrint

[صالح حمادي]

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

[أبو نادر]

شكرا يسرى انا غيرت فيه لانه على استعلام. acOutputQuery .. ويعطي نفس النتيجة

تم تعديل مايو 16, 2016 بواسطه أبو نادر