السلام عليكم
أود الحصول على شيفرة طباعة صفحة من تقرير دون فتح التقرير
مثلا : الصفحة الثانية من التقرير دون فتحه
ولكم جزيل الشكر
أخوكم :unsure:
طباعة صفحة معينة دون فتح التقرير
مغلق
وين خبراء الأكسس
الاخ العزيز
ارفق لك مثال قام بمساعدتي به بعض الأخوان في المنتدى
الرجاء الدعاء له
المثال يطبع السجل المعروض في النموذج بعد فتح التقرير
واذا أردت طباعة الصفحة مباشرة :
اذهب للإجراء : Private Sub Command30_Click() بالنموذج "enter"
وغير العبارة : acPreview
بالعبارة : acViewNormal
وبالتوفيق للجميع ,,,
( اللهم علمنا ما ينفعنا وانفعنا بما علمتنا )
أخي العزيز
شكراً على ردك ولكن ليس هذا ما أردته(طباعة السجل المعروض) فهذا أعرفه ولكني أردت طباعة( صفحة معينة من التقرير )
وهذا لأني أقوم بعمل شيفرة لطباعة الصفحات الزوجية أو الفردية في التقرير بعدما عجز المنتدى عن مساعدتي في القاعدة
وهذا هو الرابط
أخوك
اخي الكريم
السلام عليكم ورحمة الله وبركاته
من شروط وتعليمات برنامج الاكسيس يجب ان يكون التقرير مفتوح اثناء الطباعة في حالة اختيار صفحات محدده لطباعتها الا في حالة واحدة والتي لا تحتاج فيها لأن يكون التقرير مفتوح عندما تقوم بطباعة الكل من خلال زر امر الطباعة والحدث acViewNormal .
استطعنا التغلب على هذه المشكلة بجعل التقرير عند الفتح في حالة تصغير لحين اختيار وتحديد الصفحات المطلوب طباعتها ومن ثم يتم اغلاق التقرير مباشرة بعد الضغط على الامر موافق للطباعة وكل هذه العملية لا تستغرق اقل من ثانية واحدة .
الان تستطيع اختيار الصفحات المطلوب طباعتها مثلا من 1 الى 1 تعني الصفحة الاولى و 2 الى 2 تعني الصفحة 2 و 2 الى 4 يعني من الصفحة 2 الى الصفحة 4 .
ملاحظة : الاكواد موجوده تحت زر امر " طباعة " في النموذج .
وايضا يوجد امر التصغير في التقرير عند حدث الفتح .
عدد صفحات التقرير 5 صفحات الاربع صفحات الاولى يها عدد سجلات من 1 - 37 والصفحة الخامسة بها 4 سجلات فقط .
قم بالتجربة على الصفحة الخامسة او اختر احدى الصفحات وانظر النتيجة .
وهذا مثال مرفق
اختكم
زهره
تم تعديل هذه المشاركة بواسطة zahrah في 8 يناير 2006 في 18:08
أختي العزيزة زهرة
شكرا لك ولكنك لم تفهمي قصدي أنا أردت طباعة الصفحات الزوجية أو الفردية للطباعة على وجهي الصفحة /index.php?showtopic=83676
فكتبت كود يعطي الأرقام الفردية أو الزوجية كل 5 ثواني بحيث لا يتعدى عدد صفحات التقرير
( أي يقوم كل خمس ثواني بطباعة صفحة من التقرير على التوالي اذا كانت فردية يقوم بطباعة الصفحة 1 ثم بعد خمس ثواني 3 ثم 5 حتى نهاية عدد صفحات التقرير) ولكن توقفت عند أمر الطباعة
والكود هو:
هذه في قسم التعاريف
Option Compare Database
Dim a As Integer
Dim pag As Integer
هذا في تحميل الفورم ( نجعل المتحول( a ) يساوي 1 إذا أردنا الأرقام تكون فردية و2 إذا أردنا أن تكون زوجية)
Private Sub Form_Load()
a = 1
End Sub
في تحميل الفورم نشغل المؤقت و نجعل المتحول (pag) يساوي عدد صفحات التقرير
Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 5000
pag = Report_report.txtpages
End Sub
في مؤقت الفورم نكتب
Private Sub Form_Timer()
If a <= pag Then
DoCmd.PrintOut acPages, a, a, acHigh, 1, False
a = a + 2
End If
End Sub
ولكن أمر الطباعة هذا
DoCmd.PrintOut acPages, pageFrom, pageTo, acHigh, 1, False
والذي يطبع النطاق المحدد والذي وضعنا فيه المتحول (a) ولكن يجب أن يوضع هذا الأمر في التقرير وليس في الفورم ( لأنه عند وضعه في الفورم يقوم بطباعة الفورم)
وهذه هي المشكلة فما هو الحل ارجو مساعدتي ولكم جزيل الشكر
أخوكم
هذا الموضوع مغلق.