السلام عليكم ورحمة الله
هذا الكود وضعته لطباعة بطاقات أو كشوفات التلاميذ بتغيير صفحة البداية وصفحة النهاية ثم الضغط على اختصار الطباعة الموضوع على واجهة ورقة إكسيل:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = Range("AC7") To Range("AD7") n
Range("AD8") = i
If i <= Range("AD7") Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
Range("AC7").Select
End Sub
حيث يتم تغيير مضمون الخلية AC8 بقيم الأمر FOR من مضمون الخلية AC7 إلى مضمون الخلية AD7 بتدرج... ومضمون الخلية AC8 (المتغير تصاعديا أو تنازليا) مرتبط بالصفحات التي أريد طبعها هو خلية بحث للدالة VLOOKUP المستعملة لتغيير معلومات البطاقة أو الكشف من قاعدة بيانات معينة...
والمطلوب: هل يمكن تغيير مضامين الخليتين AC7 و AD7 وربطها بأرقام الصفحات الموجودة في نافذة الطباعة Gestionnaire d'impression ثم ربط التغيير بالخلية AC8... (أنظر الصورة المرفقة)
أرجو أن يكون مطلبي مفهوما...
وشكرا مقدما