السلام عليكم جميعاً
الأخ rudwan
شكرا للرد ، لقد جربت هذه الطريقة مسبقاً وهي جعل طابعة التقرير الطابعة الافتراضية وعملت كود يقوم بطباعة كل سجل على طابعته
ولكن ؟؟؟ عند استخدام الطابعة رقم 1
طبعنا السجل الأول على الطابعة
والسجل الثاني على نفس الطابعة
ما فيه مشكله
بس السجل الثالث يستخدم الطابعة رقم 2
يقوم البرنامج بطباعة السجل الثالث على الطابعة رقم 1
والسجل الرابع على الطابعة رقم 2
وهكذا
أي ان هناك فترة زمنية لجعل الطابعة الافتراضية وهنا المشكلة
وفكرت لو أني استطيع تغيير طابعة التقرير بدلاً من تغيير الطابعة الافتراضية
For I = 0 To R - 1
SetDefaultPrinter (ItemTybe.Column(2, I))
stDocName = ChrW(1601) & ChrW(1575) & ChrW(1578) & ChrW(1608) & ChrW(1585) & ChrW(1577) & ChrW(95) & ChrW(1605) & ChrW(1601) & ChrW(1589) & ChrW(1604) & ChrW(1577) & ChrW(49)
DoCmd.OpenReport stDocName, acViewNormal
Next I