هل يمكن ادخال اسم التقرير كمتغير في Function

[هيثم أحمد]

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

قمت بعمل دالة بمساعدة من موضوع علي المنتدي لتصدير التقارير الي PDF 

واريد ادخال اسم التقرير كمتغير في الدالة هل من طريقة لعمل Module به الFunction ونقوم باستدعاء الدالة ومن ثم اسم التقرير بدلا من كتابة الدالة كل مرة نقوم فيها بالتصدير الي PDF

Function getFilName(PDFName As String, RepName As String) As String

Dim fDialog    As Object

 Set fDialog = Application.FileDialog(msoFileDialogSaveAs)
 Dim varFiles As Variant
 With fDialog
       .AllowMultiSelect = False
       .Title = "Select File Location to Export PDF :"
       .InitialFileName = PDFName 
 If .Show = True Then
 For Each varFiles In .SelectedItems
        getFileNames = varFiles
   
    DoCmd.OutputTo acOutputReport, "RepName", "pdf", "varfiles" & ".pdf", True
    
    Beep
    MsgBox "PDF has been created", vbInformation, "Export PDF"
    Next
    End If
 End With
 
 End Function