ثبت اطلاعات پرینت شده در جدول جدید

[Mehr@ban]

سلام

من میخوام لاگ پرینت های انجام رو در جدولی ثبت کنم
راهنمایی میکنید که باید چیکار کنم؟

چون پرینت های مربوطه به امور مالی میشه میخوام که هر پرینتی که ثبت میشه
علاوه بر اطلاعات چاپ شده، تاریخ و زمان چاپ هم توی یک جدول جداگانه برای ثبت لاگ، درج بشه ...

[AbbasSediqi]

با سلام

Dim d, t As String

    d = Date

    t = Time





    DoCmd.PrintOut acPrintAll

    If Printer.Copies > 0 Then

        'کد مربوط به ذخيره سازي

    End If

[AbbasSediqi]

دوست گرامی


در صورت کامل شدن پرینت اطلاعات را میتوانید ذخیره کنید

[Mehr@ban]

سلام آقای صادقی
بازم مثل همیشه زحمت کشیدین که تشکر میکنم

اگر لطف کنید و یه توضیجی هم خودتون ضمیمه کنید عالی میشه که با این کد یا ماژول باید چیکار کنم؟

[AbbasSediqi]

روش ساده تری رو قرار دادم


یا حق

[Mehr@ban]

لطف کردین
این خیلی بهتر شد
حداقل برای بنده تازه کار قابل فهم تر شد.

فقط چندتا سوال

1. این دستور رو در کدوم رویداد بنویسم؟ on close گزینه مناسبی هست؟
2. با این دستور میشه تعداد پرینتهای گرفته شده از اطلاعات یک شخص رو هم بدست آورد؟ (به عبارتی قابلیت ثبت اطلاعات چاپ شده تکراری رو هم داره؟)
3. یه نمونه از کد ذخیره اطلاعات رو هم میذارین؟ (بنابر فرض یک تکس باکس با نام txtTarikh در ریپورت دارم که قراره در جدول Print History و ردیف prh_tarikh اطلاعاتش ثبت بشه!

از حوصله ای که به خرج دادین متشکرم.

[AbbasSediqi]

نمونه قرار دادم


البته برای دیتا ماکرو هم از لینک زیر استفاده کنید

چون از دیتا ماکرو استفاده کردم

https://barnamenevis.org/showthread.p...A7%DB%8C-Acess


یا حق

[Mehr@ban]

مثل همیشه خیلی لطف کردین و بدون منت راهنمایی دادین

فقط در این روش دیگه نیازی به کوئری اپند نیست دیگه؟

[AbbasSediqi]

مثل همیشه خیلی لطف کردین و بدون منت راهنمایی دادین

فقط در این روش دیگه نیازی به کوئری اپند نیست دیگه؟

نه خیر نیست

یا حق