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

[heshammahmoud0100]

محتاج كود لعمل معاينه طباعه لنفس السجل المفتوح وكود اخر لعمل حفظ بصيغه pdf لنفس السجل داخل form

[Hema24]

هذا هو كود VBA لعرض معاينة الطباعة لنفس السجل المفتوح في Microsoft Access:

Private Sub btnPreview_Click()

    DoCmd.OpenReport "اسم_التقرير", acViewPreview, , "اسم_الحقل=" & Me.اسم_الحقل

End Sub

 

وهذا هو كود VBA لحفظ السجل الحالي في ملف PDF داخل الفورم:

 

 

Private Sub btnSaveAsPDF_Click()

    DoCmd.OutputTo acOutputForm, Me.Name, acFormatPDF, "اسم_الملف_المراد_حفظه.pdf", True

End Sub

 

 

يرجى استبدال "اسم_التقرير" و"اسم_الحقل" و"اسم_الملف_المراد_حفظه" بالأسماء الفعلية للتقرير والحقل والملف الذي ترغب في استخدامه.

تم تعديل يوليو 20 بواسطه Moosak
تنسيق الكود

[heshammahmoud0100]

تمام شكرا لحضرتك