بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'functions'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله وبركاته قمت بعمل دالة بمساعدة من موضوع علي المنتدي لتصدير التقارير الي 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
