تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6
صفحة 1 من اصل 1 • شاطر
تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6
أهلا بكم
طريقة جملية و جديدة لتحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6 فقط من خلال أستخدام المكتبة PDFCreator ويتم ادراجها عن طريق Referencesr ثم أختيار المكتبة "PDFCreator"
_ فى قسم التصريحات العامة نقوم بالاعلان عن المتغيرات التالية :
طريقة جملية و جديدة لتحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6 فقط من خلال أستخدام المكتبة PDFCreator ويتم ادراجها عن طريق Referencesr ثم أختيار المكتبة "PDFCreator"
_ فى قسم التصريحات العامة نقوم بالاعلان عن المتغيرات التالية :
- الكود:
Const c_strWORDDOCDir As String = "f:\cm7_dbs\easymove\documents\"
Const c_strWORDDOC As String = "testpdf.doc"
Const c_strPDFDOCDir As String = "f:\cm7_dbs\easymove\PDF\"
Const c_strPDFExt As String = ".PDF"
Private WithEvents cPDFCreator As PDFCreator.clsPDFCreator
Private cPDFCreatorError As clsPDFCreatorError
Private cPDFCreatorOptions As clsPDFCreatorOptions
- الكود:
Private Sub Command1_Click()
Dim strPDFFileName As String
Dim lngPosit As Long
Dim strDefaultPrinter As String
strDefaultPrinter = Printer.DeviceName
lngPosit = InStrRev(c_strWORDDOC, ".")
strPDFFileName = Mid(c_strWORDDOC, 1, lngPosit - 1) & c_strPDFExt
Set cPDFCreator = New clsPDFCreator
Set cPDFCreatorOptions = New clsPDFCreatorOptions
With cPDFCreatorOptions
.AutosaveDirectory = c_strPDFDOCDir
.AutosaveFilename = strPDFFileName
.UseAutosave = 1
.UseAutosaveDirectory = 1
.AutosaveFormat = 1 'PDF
End With
Set cPDFCreator.cOptions = cPDFCreatorOptions
strDefaultPrinter = Printer.DeviceName
With cPDFCreator
.cDefaultPrinter = "PDFCreator"
.cClearCache
.cPrintPDFCreatorTestpage
.cPrinterStop = False
Printer.Print
.cPrintFile c_strWORDDOCDir & c_strWORDDOC
.cClose
End With
Set cPDFCreator = Nothing
Set cPDFCreatorOptions = Nothing
End Sub
جورج صبحى- ......
- تاريخ التسجيل : 18/02/2011
المساهمات : 127
النقاط : 259
التقيم : 6
الجنس :
رد: تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6
شكرا جورج ...لكنى كنت أتمنى وجود شرح و لو بسيط للاكواد
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6
السلام عليكم
ممكن تضع المكتبة هنا وياليت شرع للاكواد مثل ما قال اخونا الفاضل أحمد
ممكن تضع المكتبة هنا وياليت شرع للاكواد مثل ما قال اخونا الفاضل أحمد
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
ليس من اخترق جهاز اصبح هكر
وليس من كتب كود اصبح مبرمج
وليس من كسر برنامج صار خيبير كسر
ولكن من تواضع لله رفعة
tryold- ...
- تاريخ التسجيل : 06/04/2013
المساهمات : 37
النقاط : 47
التقيم : 2
الدولة :
الجنس :
رد: تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6
ولو امكن يعني واعطيتنا مثال تكون مشكووووووووووووووووور
saadalhadi- ...
- تاريخ التسجيل : 14/05/2013
المساهمات : 32
النقاط : 44
التقيم : 0
الدولة :
الجنس :
رد: تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6
الاخوة الكرام يمكنكم الاطلاع على الدرس التالى :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
وذلك لكون أن المكتبة التى تحدث عنها الاخ جورج ليست مجانية
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
وذلك لكون أن المكتبة التى تحدث عنها الاخ جورج ليست مجانية
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
أمس في 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft