السـلام عليكم ورحمة الله وبركاته
أحتاج كود ينقل ملف pdf إلى سطح المكتب
طبعاً سطح المكتب يتغير من جهاز إلى جهاز
محتاج طريقه تعمل مع كل الأجهزة
وششششششكراً
كود :
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 ومنتهي التسمية باقي فقط أعمل له أكسبورت في سطح المكتب
لما أَيف للكود هذا التسميه يعطيني خطأ
الفكره هي تقرير أملئة بالبيانات وبعد كذا أعمل له أكسبورت تصدير لسطح المكتب بتسمه معينه فقط
ممكن اعادة صياغه الكود بحيث انه يعمل اكسبورت لسطح المكتب
لاني نفذت الكود وشكلي نفذته غلط امثر من مره هل من بارع
ممكن كود اكسبورت غير هاذي الطريقه لأن الكلام يظهر عندي متلخبط