منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف يمكنني أرسال pdf إلى سطح المكتب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف يمكنني أرسال pdf إلى سطح المكتب (/showthread.php?tid=32241)

كيف يمكنني أرسال pdf إلى سطح المكتب - DOX.1 - 25-11-19

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

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

RE: كيف يمكنني أرسال pdf إلى سطح المكتب - kiki - 25-11-19

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

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

RE: كيف يمكنني أرسال pdf إلى سطح المكتب - DOX.1 - 25-11-19

كود :
    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  ومنتهي التسمية باقي فقط أعمل له أكسبورت في سطح المكتب 
لما أَيف للكود هذا التسميه يعطيني خطأ
الفكره هي تقرير أملئة بالبيانات وبعد كذا أعمل له أكسبورت تصدير لسطح المكتب بتسمه معينه فقط

RE: كيف يمكنني أرسال pdf إلى سطح المكتب - ابو روضة - 25-11-19

كود :
My.Computer.FileSystem.SpecialDirectories.Desktop + "/"


RE: كيف يمكنني أرسال pdf إلى سطح المكتب - DOX.1 - 28-11-19

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

RE: كيف يمكنني أرسال pdf إلى سطح المكتب - عبدالله الدوسري - 29-11-19

غير هذا السطر :
كود :
" + NumCodereport + ".pdf +"


إلى :
كود :
My.Computer.FileSystem.SpecialDirectories.Desktop & "\NumCodereport.pdf"


RE: كيف يمكنني أرسال pdf إلى سطح المكتب - DOX.1 - 03-12-19

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