هذا هو كود 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
يرجى استبدال "اسم_التقرير" و"اسم_الحقل" و"اسم_الملف_المراد_حفظه" بالأسماء الفعلية للتقرير والحقل والملف الذي ترغب في استخدامه.