PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : پرسش: خطا در اجرای دستور چاپ در ویژوال بیسیک


mohammad410127
2019/11/05, 07:27
سلام وقت بخیر
دوستان عزیز
من تو فایل اکسل یه دستور چاپ ایجاد کردم که روی بعض سیستمها اجرا میشه ولی متاسفانه روی اون سیستمی که مد نظرم هست اجرا نمیشه و با خطای microsoft visual basic for applications مواجه میشم اگه امکانش هست منو راهنمایی کنید ممنون میشم
Amir Ghasemiyan
2019/11/05, 08:19
سلام دوست عزيز
از چه كدي براي پرينت استفاده ميكنيد؟
سيستم هايي كه امتحان كرديد همشون به پرينتر وصل هستند؟
آيا پرينتر مورد نظر به عنوان پرينتر پيشفرض تعريف شده يا نه؟
mohammad410127
2019/11/05, 09:18
سلام دوست عزيز
از چه كدي براي پرينت استفاده ميكنيد؟
سيستم هايي كه امتحان كرديد همشون به پرينتر وصل هستند؟
آيا پرينتر مورد نظر به عنوان پرينتر پيشفرض تعريف شده يا نه؟

فایل رو پیوست کردم
تمامی سیستمها به پرینتر وصل هستند و چک کردم همه به عنوان پیش فرض تعریف شدن
حسام بحرانی
2019/11/05, 10:08
سلام
این فایل در سیستمی که مد نظرتون هست باز نمیشه؟ یا اینکه باز میشه و دستور رو اجرا نمی کنه؟
mohammad410127
2019/11/05, 10:36
سلام
این فایل در سیستمی که مد نظرتون هست باز نمیشه؟ یا اینکه باز میشه و دستور رو اجرا نمی کنه؟


فایل باز میشه زمان چاپ رو تو سیستم مد نظرم میزنم با خطای microsoft visual basic for applications روبرو میشم
Amir Ghasemiyan
2019/11/05, 10:53
كدتون مشكلي نداره. تست كردم درست پرينت ميگيره
لطفا يه عكس از خطا و خطي كه خطا بهش مربوط ميشه رو ارسال بفرماييد
mohammad410127
2019/11/07, 07:23
20045
mohammad410127
2019/11/07, 07:39
20046
mohammad410127
2019/11/07, 09:01
كدتون مشكلي نداره. تست كردم درست پرينت ميگيره
لطفا يه عكس از خطا و خطي كه خطا بهش مربوط ميشه رو ارسال بفرماييد
منتظر راهنمایی شما هستم
misammisam
2019/11/08, 17:29
سلام
شما یه ماکرو برای پرینت سیو کردید و چون چاپگرها تنظیمات مختلفی دارن و شما همه تنظیمات رو سیو کردین درون یک ماکرو ( که اینکار اصلا لازم نیست ) ، بهمین خاطر روی چاپگر دومتون یسری تنظیمات اعمال میشه که اصلا اون چاپگر چنین قابلیتی نداره و سیسنم یه ارور نا معلوم میده .
شما کل کدتونو به این شکل جایگزین کنید رو اکثر چاپگرا جواب میده :

Sub Macro1()
'
' Macro1 Macro
Range("a1:k18").PrintOut Copies:=1, Collate:=True
End Sub

اگر بازم نشد برید رو اون چاپگری که ارور میده و با تنظیمات اون یه ماکرو دیگه سیو کنید .