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

[Aliko]

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

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

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

!!!!

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

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

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

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

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

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

اخوكم 

٧/٧/٢٠١٧

[kamel2711]

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

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

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

 

[Ibrahim IQ]

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

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

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

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

[Aliko]

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

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

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

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 

 

اخوكم 

[kamel2711]

  سلام عليكم   يمكنك استعمال  exp/imp     اصدار تصدير  البيانات من قائمة   المثال يوضح ذالك   اي مباشرة الى الوورد

 

[أبو عبدالله الحلوانى]

السلام عليكم 

لو أرفقت لنا مثالا كان أفضل

 

[عبدالله كاظم]

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

 

جرب هذا الكود

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

 

 

[jjafferr]

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

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

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

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

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

 

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

 

1.

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

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

.

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

 

جعفر

[Aliko]

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

 

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

 

1.

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

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

.

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

 

جعفر

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

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

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