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

كيفية طباعة نموذج وحفظه بصيغة Pdf


Aliko

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

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

اخواني الافاضل 

لدي نموذج في قاعدة البيانات واريد ان اطبع الصفحه الاخيره المفتوحه لهذا النموذج 

!!!!

حاولت ان بطريقة ان اطبع هذا النموذج لكن البرنامج يقوم بطباعة جميع الصفحات تواليا وانا احتاج لطباعة النموذج المفتوح والبيانات المكتوبه اخر شيء ؟ 

هل توجد اي طريقه او كود لطباعة النموذج الاخير فقط دون طباعه البيانات السابقه ؟ 

وبنفس الطريقه هل توجد طريقه لحفظ الصفحه الاخيره من النموذج بصيغه ال بي دي اف ؟ 

للمعلومه انا احتاج لطباعه النموذج وليس للتقرير 

اتمنى مساعدتكم اخواني الافاضل 

تحياتي وشكري لكم جميعاً 

اخوكم 

٧/٧/٢٠١٧

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

سلام عليكم  انشأ زر قم بإدخال الكود   اما طباعة هناك طريقة ثانية عن طريق استعلام  ففط  اما ما يخص pdf  

هناك  برنامج يقوم بتحويل من word to pdf  ,,ولكن العربية غير مدعمة اعتقد  وان كان لست متأكدا

Private Sub BTImprimer_Click() 
Dim Nom_Etat as string 
Nom_Etat="MonEtat" 
DoCmd.OpenReport Nom_Etat, acPreview 
End Sub 

 

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

وعليكم السلام

جرب هذا انشاءلله هذا يفيدك

DoCmd.PrintOut acPages, PageFrom:=1, PageTo:=1, Copies:=1

اخي العزيز من افضل ان تقوم بطباعة تقارير هذا اجمل للتلوين و حجم الورقة

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

اخواني انا اريد طباعة النموذج المفتوح فقط 

لا اريد ان اطبع تقرير فالنموذج في قاعدة البيانات الخاصه لا تعتمد على تقرير

تحياتي لكم اخواني 

23 hours ago, Rebaz Bahram said:

وعليكم السلام

جرب هذا انشاءلله هذا يفيدك

DoCmd.PrintOut acPages, PageFrom:=1, PageTo:=1, Copies:=1

اخي العزيز من افضل ان تقوم بطباعة تقارير هذا اجمل للتلوين و حجم الورقة

 

On 7/8/2017 at 0:22 AM, kamel2711 said:

سلام عليكم  انشأ زر قم بإدخال الكود   اما طباعة هناك طريقة ثانية عن طريق استعلام  ففط  اما ما يخص pdf  

هناك  برنامج يقوم بتحويل من word to pdf  ,,ولكن العربية غير مدعمة اعتقد  وان كان لست متأكدا


Private Sub BTImprimer_Click() 
Dim Nom_Etat as string 
Nom_Etat="MonEtat" 
DoCmd.OpenReport Nom_Etat, acPreview 
End Sub 

 

اخوكم 

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

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

 

جرب هذا الكود

DoCmd.OutputTo acOutputReport, "اسم التقرير", acFormatPDF

 

 

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

في 7/7/2017 at 23:56, Aliko said:

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

1. هل توجد اي طريقه او كود لطباعة النموذج الاخير فقط دون طباعه البيانات السابقه ؟ 

2. وبنفس الطريقه هل توجد طريقه لحفظ الصفحه الاخيره من النموذج بصيغه ال بي دي اف ؟ 

للمعلومه انا احتاج لطباعه النموذج وليس للتقرير 

 

وعليكم السلام:smile:

 

1.

من فهمي لسؤالك ، عندك نموذج فردي ، وعليه تستطيع ان تستعمل الكود التالي لطباعة آخر سجل في النموذج:

        DoCmd.GoToRecord , , acLast
        DoCmd.PrintOut acSelection, , , acHigh

.

ولا اجد اي طريقة للطباعة بصيغة pdf ، إلا اذا استعملت طابعة pdf افتراضية Virtual Printer ، بحيث تجعلها الطابعة الافتراضي للطبع Default Printer ، ثم تُرجع الطابعة الاخرى كطابعة افتراضية ، وهذا الرابط يعطيك فكرة عن هذه الطابعات:

 

جعفر

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

On ١٣‏/٧‏/٢٠١٧ at 10:23 PM, jjafferr said:

 

وعليكم السلام:smile:

 

1.

من فهمي لسؤالك ، عندك نموذج فردي ، وعليه تستطيع ان تستعمل الكود التالي لطباعة آخر سجل في النموذج:


        DoCmd.GoToRecord , , acLast
        DoCmd.PrintOut acSelection, , , acHigh

.

ولا اجد اي طريقة للطباعة بصيغة pdf ، إلا اذا استعملت طابعة pdf افتراضية Virtual Printer ، بحيث تجعلها الطابعة الافتراضي للطبع Default Printer ، ثم تُرجع الطابعة الاخرى كطابعة افتراضية ، وهذا الرابط يعطيك فكرة عن هذه الطابعات:

 

جعفر

شكرا جزيلا لك استاذ جعفر

جاري التجربة واعلامك بالنتيجة

شكرا لمرورك الجميل اخي

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

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.

×
×
  • اضف...

Important Information