صديقي في البداية كان يظهر ان هناك خطا ولكن بعد المحاولة لعدة مرات اصبح يعمل ولكن عند الحفظ اذهب الى المجلد الذي حفظت به لا اجد شيئا اي انه لابحفظ الملف
ارجو المساعدة لاني مضطر كثيرا الى هذا الملف ولم افلح في الوصول الى حل
Private Sub Command48_Click()
Dim file As Office.FileDialog
Dim filepath As String
Set file = Application.FileDialog(msoFileDialogSaveAs)
With file
.Title = "save pdf"
.AllowMultiSelect = False
.InitialFileName = Me.ID_contract
If .Show Then
filepath = _
Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)
Call MsgBox(filepath, vbInformation, "Save Path")
Else
Exit Sub
End If
End With
End Sub
هذا الكود ايضا يعمل ونظهر نافذة الحفظ لكنه ايضا لايحفظ شيئ