اذهب الي المحتوي
أوفيسنا

تصدير التقرير بصيغة pdf


m_fouad0003

الردود الموصى بها

بسم الله الرحمن الرحيم 

الاخوه الكرام اعضاء منتدنا الغالى

ارجو من سيادتكم مساعدتى فى كود يمكنى من تصدير تقرير الفاتورة بصيغة pdf  ويكون اسمه برقم الفاتورة 

وشكرا جزيل 

تم تعديل بواسطه m_fouad0003
رابط هذا التعليق
شارك

46 دقائق مضت, m_fouad0003 said:

بسم الله الرحمن الرحيم 

الاخوه الكرام اعضاء منتدنا الغالى

ارجو من سيادتكم مساعدتى فى كود يمكنى من تصدير تقرير الفاتورة بصيغة pdf  ويكون اسمه برقم الفاتورة 

وشكرا جزيل 

اهلا بك اخي  m_fouad0003 في المنتدى

اتفضل

 

Dim RepName As String
RepName = Me![ ضع هنا رقم الفاتورة] 
DoCmd.OutputTo acOutputReport, "اسم التقرير ضعه هنا", acFormatPDF, CurrentProject.path & "\" & RepName & ".PDF", False

 

تم تعديل بواسطه ابو ياسين المشولي
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

3 ساعات مضت, ابو ياسين المشولي said:

اهلا بك اخي  m_fouad0003 في المنتدى

اتفضل

 


Dim RepName As String
RepName = Me![ ضع هنا رقم الفاتورة] 
DoCmd.OutputTo acOutputReport, "اسم التقرير ضعه هنا", acFormatPDF, CurrentProject.path & "\" & RepName & ".PDF", False

 

السلام عليكم استاذ ابو ياسين المحترم

انا غيرت بالكد تغيير بسيط ولاكن لم افلح على امل ان يقوم بتصدير فاتورة من اختياري ولاكن قام بتصدير جمبع الفواتير لملف pdf واحد

وحسب ما فهمت من الكد المكتوب نقوم بادخال رقم الفاتورة وانا اوريد اختيار اي فاتورة عشوائيا من خلال الضغظ على زو يقوم بتصديرها الى pdf

ارجوا التصحيح وجزاكم الله خير الجزاء

 

Dim RepName As String
RepName = "[رقم الفاتورة]=" & Me![رقم الفاتورة]
DoCmd.OutputTo acOutputReport, "وصل بيع", acFormatPDF, CurrentProject.Path & "\" & RepName & ".PDF", False
رابط هذا التعليق
شارك

طيب اخي محمد شوف الحقل اللي تسجل فيه رقم الفاتورة العشوائي بدل مي فاتورة

او ارفع ملف مختصر

رابط هذا التعليق
شارك

15 ساعات مضت, ابو ياسين المشولي said:

طيب اخي محمد شوف الحقل اللي تسجل فيه رقم الفاتورة العشوائي بدل مي فاتورة

او ارفع ملف مختصر

تفضل اخي ابو ياسين هذا الملف المرفق

الكد الحالي يقوم بتصدير جميع الفواتير الى pdf والمراد تصدير فاتورة واحد فقط

والشكر لك

فاتورة.accdb

رابط هذا التعليق
شارك

2 ساعات مضت, محمد التميمي said:

تفضل اخي ابو ياسين هذا الملف المرفق

الكد الحالي يقوم بتصدير جميع الفواتير الى pdf والمراد تصدير فاتورة واحد فقط

والشكر لك

فاتورة.accdb

اتفضل

Dim RepName As String
Dim stDocName As String
RepName = Me![رقم الفاتورة]
stLinkCriteria = "[رقم الفاتورة]=" & Me![رقم الفاتورة]
stDocName = "وصل بيع"
DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, CurrentProject.Path & "\" & RepName & ".PDF", False
DoCmd.Close acReport, "وصل بيع"

 

رابط هذا التعليق
شارك

4 ساعات مضت, ابو ياسين المشولي said:

اتفضل


Dim RepName As String
Dim stDocName As String
RepName = Me![رقم الفاتورة]
stLinkCriteria = "[رقم الفاتورة]=" & Me![رقم الفاتورة]
stDocName = "وصل بيع"
DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, CurrentProject.Path & "\" & RepName & ".PDF", False
DoCmd.Close acReport, "وصل بيع"

 

بارك الله فيك يا اخي واستاذي الكريم وجعله الله في ميزان حسناتك

وجدت هذا الكد ادناه ايظاً في فديو انكليزي مع استعلام بسيط وقمت بترجمته وتطبيقه ونجح

Dim FileName As String
Dim FilePath As String
FileName = Me.[اسم المشتري] & "رقم" & Me.رقم_الفاتورة
FilePath = "C:\Users\Mxm\Desktop\" & FileName & ".pdf"
'DoCmd.OutputTo acOutputForm, "فاتورة البيع", acFormatPDF, FilePath
DoCmd.OutputTo acOutputReport, "وصل بيع", acFormatPDF, FilePath
MsgBox "تم حفظ التقرير بصيغة PDF بنجاح", vbInformation, "رسالة تنويه"

مع فائق شكري واحترامي....

 

 

 

رابط هذا التعليق
شارك

32 دقائق مضت, محمد التميمي said:

بارك الله فيك يا اخي واستاذي الكريم وجعله الله في ميزان حسناتك

وجدت هذا الكد ادناه ايظاً في فديو انكليزي مع استعلام بسيط وقمت بترجمته وتطبيقه ونجح


Dim FileName As String
Dim FilePath As String
FileName = Me.[اسم المشتري] & "رقم" & Me.رقم_الفاتورة
FilePath = "C:\Users\Mxm\Desktop\" & FileName & ".pdf"
'DoCmd.OutputTo acOutputForm, "فاتورة البيع", acFormatPDF, FilePath
DoCmd.OutputTo acOutputReport, "وصل بيع", acFormatPDF, FilePath
MsgBox "تم حفظ التقرير بصيغة PDF بنجاح", vbInformation, "رسالة تنويه"

مع فائق شكري واحترامي....

 

 

 

بالتوفيق اخي محمد التميمي

ولكن هذا يطبع جميع الفواتير

 

تم تعديل بواسطه ابو ياسين المشولي
رابط هذا التعليق
شارك

10 ساعات مضت, أواب said:

أخي الكريم

أنا أستخدم أوفيس  2003

استخدمت الكود وطلعت لي الرساله

 

 

أنا محتاج جدا للموضوع

011.png

اخي ارسل ملف مرفق ليتم مساعدتك

11 ساعات مضت, ابو ياسين المشولي said:

بالتوفيق اخي محمد التميمي

ولكن هذا يطبع جميع الفواتير

 

نعم اخي ابو ياسين ولاكن يعمل مع استعلام التقرير ( في رقم الفاتورة)

[Forms]![فاتورة البيـع].[رقم الفاتورة]

 

رابط هذا التعليق
شارك

12 ساعات مضت, أواب said:

أخي الكريم

أنا أستخدم أوفيس  2003

استخدمت الكود وطلعت لي الرساله

 

 

أنا محتاج جدا للموضوع

011.png

اكسس 2003 لايدعم الخيار اعلاه

هنا مقارنة لخيارات اصدارات الاكسس

https://www.fmsinc.com/microsoftaccess/history/features.htm

بالتوفيق

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information