مجتاجة طريقة إستخراج تقرير في ورقة A3 عن طريق الاكسيس

للعلم

استخدم اكسيس 2007

في انتظار الردود

اختي الفاضلة

اذا كانت الطابعة الإفتراضية لديك تدعم الطباعة على ورق A3 فإستخدمي هذا الكود في حدث عند النقر على زر امر الطباعة الموجود في النموذج مع تغيير اسم التقرير لما هو موجود لديك

Private Sub cmdPrint_Click()
Dim stDocName As String
Dim prtDefault As Printer

Set Application.Printer = Application.Printers(0) 
Set prtDefault = Application.Printer

stDocName = "YourReportName"
DoCmd.OpenReport stDocName, acViewNormal, , , acWindowNormal
Me.Visible = False
Reports(stDocName).Printer = prtDefault
prtDefault.PaperSize = acPRPSA3

End Sub

YourReportName = اسم التقرير الخاص بك

بالتوفيق

شكرا جزيلا الاخت زهرة

جاري التجربه