تفضل أخي هذا هو الكود واذا لم يعمل على نموذجك لأن به أوامر كثيرة ....... افتح نموذج جديد به زر أمر به هذا الكود بيطبع لك أول صفحة فقط .
DoCmd.OpenReport "CHEMM", acViewPreview
DoCmd.PrintOut acPages, 1, 1
و اذا كان هذا طلبك اضغط على أفضل اجابة .
أستاذي الفاضل @ابو عبد الرحمن اشرف أنا شغال على الموضع لك ولي كي أطور البرنامج بس لو ممكن تطول بالك شوي أما لو شاركنا أستاذنا @أبو خليل جزاه الله خير يبقى قصر علينا الوقت .
أستاذي الفاضل @ابو عبد الرحمن اشرف هذا برنامجي بيعطيك نسخة مضغوطة من البرنامج يدوياَ وكل مرة بإسم غير...... أما أسبوعياً أو يوميا أو شهرياً ......... يساعدك فيها أستاذنا الكبير @أبو خليل لأنه تطرق إليها من قبل .
تفضل المرفق .
Zip Folder and CopyLast.rar
وانت فاتح الملف أذهب( File)ثم (Options) ثم (Trust Center) ثم (Trust Center Settings) علم عى الخيار الأسفل ثم (OK) ثم أعد تشغيل البرنامج ......ووافني بالرد .