السلام عليكم
اعذرني ليس لدي طابعة بالمنزل للتجربة
بس ممكن تكرر القيود المراد طباعتها مثلا التقارير من 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
اعلمنا النتائج
تحياتي