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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تحويل ملفات 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
المساهمات : 98
النقاط : 211
التقيم : 3
الجنس : ذكر

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

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

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


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

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

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

أحمد مناع
.
.

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

http://egy-tech.forumegypt.net

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

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

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

السلام عليكم

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

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


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

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

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

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


tryold
...
...

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

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

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

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

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

saadalhadi
...
...

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

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

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

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

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

http://egy-tech.forumegypt.net/t659-topic

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

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

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

أحمد مناع
.
.

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

http://egy-tech.forumegypt.net

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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