[DOX.1]

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

أحتاج كود ينقل ملف pdf إلى سطح المكتب 
طبعاً سطح المكتب يتغير من جهاز إلى جهاز 
محتاج طريقه تعمل مع كل الأجهزة 
وششششششكراً

[kiki]

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

يمكنك مراجعة هذا الرابط
https://docs.microsoft.com/en-us/dotnet/...es.desktop

[DOX.1]

كود :

    Dim CrExportOptions As ExportOptions
           Dim CrDiskFileDestinationOptions As New  _
           DiskFileDestinationOptions()
           Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
           CrDiskFileDestinationOptions.DiskFileName = _
                                       " + NumCodereport + ".pdf +"
           CrExportOptions = rpolines.ExportOptions
           With CrExportOptions
               .ExportDestinationType = ExportDestinationType.DiskFile
               .ExportFormatType = ExportFormatType.PortableDocFormat
               .DestinationOptions = CrDiskFileDestinationOptions
               .FormatOptions = CrFormatTypeOptions
           End With
           rpolines.Export()

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

كود :

My.Computer.FileSystem.SpecialDirectories.Desktop

كيف يمكنني أرسال المسـار 
أنا عندي ملف pdf  ومنتهي التسمية باقي فقط أعمل له أكسبورت في سطح المكتب 
لما أَيف للكود هذا التسميه يعطيني خطأ

---

الفكره هي تقرير أملئة بالبيانات وبعد كذا أعمل له أكسبورت تصدير لسطح المكتب بتسمه معينه فقط

[ابو روضة]

كود :

My.Computer.FileSystem.SpecialDirectories.Desktop + "/"

[DOX.1]

ممكن اعادة صياغه الكود بحيث انه يعمل اكسبورت لسطح المكتب
لاني نفذت الكود وشكلي نفذته غلط امثر من مره هل من بارع

[عبدالله الدوسري]

غير هذا السطر :

كود :

" + NumCodereport + ".pdf +"

إلى :

كود :

My.Computer.FileSystem.SpecialDirectories.Desktop & "\NumCodereport.pdf"

[DOX.1]

ممكن كود اكسبورت غير هاذي الطريقه لأن الكلام يظهر عندي متلخبط