منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6

اذهب الى الأسفل

تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6 Empty تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6

مُساهمة من طرف جورج صبحى الجمعة سبتمبر 20, 2013 9:28 am

أهلا بكم 

طريقة جملية و جديدة لتحويل ملفات 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


Very Happy Very Happy
جورج صبحى
جورج صبحى
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 127
النقاط : 259
التقيم : 6
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6 Empty رد: تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6

مُساهمة من طرف أحمد مناع الجمعة سبتمبر 20, 2013 11:18 am


شكرا جورج ...لكنى كنت أتمنى وجود شرح و لو بسيط للاكواد Very Happy 

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
أحمد مناع
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 1108
النقاط : 202034
التقيم : 144
الدولة : مصر
الجنس : ذكر

https://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6 Empty رد: تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6

مُساهمة من طرف tryold السبت سبتمبر 21, 2013 11:56 am

السلام عليكم

ممكن تضع المكتبة هنا وياليت شرع للاكواد مثل ما قال اخونا الفاضل أحمد

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ


ليس من اخترق جهاز اصبح هكر

وليس من كتب كود اصبح مبرمج

وليس من كسر برنامج صار خيبير كسر

ولكن من تواضع لله رفعة

tryold
tryold
...
...

تاريخ التسجيل : 06/04/2013
المساهمات : 37
النقاط : 47
التقيم : 2
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6 Empty رد: تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6

مُساهمة من طرف saadalhadi الأحد سبتمبر 22, 2013 6:40 am

ولو امكن يعني واعطيتنا مثال تكون مشكووووووووووووووووور
saadalhadi
saadalhadi
...
...

تاريخ التسجيل : 14/05/2013
المساهمات : 32
النقاط : 44
التقيم : 0
الدولة : السودان
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6 Empty رد: تحويل ملفات Word الى ملفات PDF من خلال الفجوال بيسك 6

مُساهمة من طرف أحمد مناع الأحد سبتمبر 22, 2013 10:24 am

الاخوة الكرام يمكنكم الاطلاع على الدرس التالى :

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

وذلك لكون أن المكتبة التى تحدث عنها الاخ جورج ليست مجانية

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
أحمد مناع
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 1108
النقاط : 202034
التقيم : 144
الدولة : مصر
الجنس : ذكر

https://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى