طباعة الصفحة الحالية في التقرير

[yoofe]

مشكلتي عند الضغط لأظهار التقرير يتم استعراض جميع التقاير السابقه

ارغب بأمر يظهر لي التقرير الحالي وطباعة التقرير النشط فقط 

 

هذا والامر 

On Error Resume Next
Dim stLinkCriteria As String
stLinkCriteria = "[User]=" & Me![User]
DoCmd.OpenReport "ReCard", stLinkCriteria

 

الرجاء التعديل عليه بحيث يظهر لي بالتقرير الصفحة النشطه فقط وشكراً 

[kaser906]

لو وضعت مرفق ليتم التطبيق كان افضل

عموما جرب هذا الكود

Dim stDocName As String
stLinkCriteria = "[User]=" & Me![User]
stDocName = "ReCard"
DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria

::بالتوفيق::

[yoofe]

20 ساعات مضت, kaser906 said:

لو وضعت مرفق ليتم التطبيق كان افضل

عموما جرب هذا الكود

Dim stDocName As String
stLinkCriteria = "[User]=" & Me![User]
stDocName = "ReCard"
DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria

::بالتوفيق::

شكراً لك اخي على ردك وتجاوبك السريع 

 

لم اتمكن من اضافة الامر كما يجب 

 

مرفق لكم المثال للتعديل عليه وشكراً للجميع على هذا الموقع المميز

al.rar

تم تعديل أغسطس 4, 2018 بواسطه yoofe

[kaser906]

تفضل

الافضل ان يكون عامل الفرز حقل رقمي ما أمكن

تم تغير عامل الفرز الى رقم المشترك بدل اسمه

Dim stDocName As String
stLinkCriteria = "[number]=" & Me![number]
stDocName = "record1"
DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria

::بالتوفيق::

almaherK906.rar