السلام عليكم
 
	اعذرني ليس لدي طابعة بالمنزل للتجربة
 
	بس ممكن تكرر القيود المراد  طباعتها  مثلا  التقارير من 1- 5
 
	اعمل زر  اخر للتجربة وجرب هذ الكود
 
Set Application.Printer = Application.Printers("اسم الطابعة الكامل")
DoCmd.OpenReport "اسم التقرير", acViewNormal
Set Application.Printer = Application.Printers("اسم الطابعة الكامل")
DoCmd.OpenReport "اسم التقرير", acViewNormal
Set Application.Printer = Application.Printers("اسم الطابعة الكامل")
DoCmd.OpenReport "اسم التقرير", acViewNormal
Set Application.Printer = Application.Printers("اسم الطابعة الكامل")
DoCmd.OpenReport "اسم التقرير", acViewNormal
Set Application.Printer = Application.Printers("اسم الطابعة الكامل")
DoCmd.OpenReport "اسم التقرير", acViewNormal
	اعلمنا النتائج
 
	تحياتي