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

[محب العقيدة]

السلام عليكم

في حال استخدمت الماكرو في تصدير التقرير المعروض واردت تمرير اسم

التقرير لامر التصدير الى الاكسيل استخدم الامر التالي

Dim rptCurrentReport As Report
Set rptCurrentReport = Screen.ActiveReport

Dim w As String
w = rptCurrentReport.name
DoCmd.OutputTo acOutputReport, w, "MicrosoftExcelBiff8(*.xls)", "", False