أختر اسم التقرير واسم الطابعة وحجم الورق كل هذا في مثال واحد ..

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

تحية طيبة ..

أخوتي الأحباء اساتذتي الكرام ... أقدم لكم اليوم هذا المثال لتحديد اسم التقرير واسم الطابعة وحجم الورق أرجوا منه الفائدة لكم ..

أخواني .... لله الحمد بوجود هذا الكم الهائل من الامثلة والأدوات المقدمة بسخاء لهذا المنتدى وغيره من المنتديات على أيدي كريمة مباركة ندعوا لها دائما بالخير ليرضى الله عز وجل عنها ، بقى كل شئ سهل للاستخدام هذا الاكسس ..

نحن بقى علينا فقط التخطيط بعناية والتروي ومن ثم تجميع ما يمكن جمعه من الاكواد لعمل معين ..

مرفق صورة عن المثال والكود المستخدم ..

أترككم مع المثال وهو على فكرة منقول ويا ليته كان من صنعي أو تصميمي ولكن الله كريم ..

الأكواد المستخدمة :

Option Compare Database
Option Explicit
Private intDefaultPrinter As Integer
Private prt As Access.Printer
Private Sub cmdOpenReport_Click()
On Error GoTo ErrorHandler

   Dim strReport As String
   Dim intReportMode As Integer

   'Get printer number from column 1 for use in referencing the printer
   '(column numbering is zero-based in code)
   Set prt = Application.Printers(CLng(Me![cboSelectPrinter].Column(0)))

   'Get report name from column 2
   strReport = Me![cboSelectReport].Column(1)

   'Get paper size from combo box value
   prt.PaperSize = Me![cboPaperSize].Value

   'Get orientation from option group value
   prt.Orientation = Me![fraOrientation].Value

   'Get report mode from option group value
   intReportMode = Nz(Me![fraReportMode].Value, 1)

   If intReportMode = 1 Then
      DoCmd.OpenReport strReport, acViewPreview
      Reports(strReport).Printer = prt
   ElseIf intReportMode = 2 Then
      DoCmd.OpenReport strReport, acViewDesign, , , acHidden
      Reports(strReport).Printer = prt
      DoCmd.OpenReport strReport, acViewNormal
   End If

ErrorHandlerExit:
   Exit Sub

ErrorHandler:
   MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
   Resume ErrorHandlerExit

End Sub

تقبلوا مني مزيد من الاحترام والتقدير ..

أخوكم العبد الفقير أبو عدنان ..

ملاحظة تم الغاء الماكرو من المرفق الاول لعدم حاجة المثال له..

SelectPrinterAndPaperSizes.rar