پرسش خطا در اجرای دستور چاپ در ویژوال بیسیک

[mohammad410127]

سلام وقت بخیر
دوستان عزیز
من تو فایل اکسل یه دستور چاپ ایجاد کردم که روی بعض سیستمها اجرا میشه ولی متاسفانه روی اون سیستمی که مد نظرم هست اجرا نمیشه و با خطای microsoft visual basic for applications مواجه میشم اگه امکانش هست منو راهنمایی کنید ممنون میشم

[Amir Ghasemiyan]

سلام دوست عزيز
از چه كدي براي پرينت استفاده ميكنيد؟
سيستم هايي كه امتحان كرديد همشون به پرينتر وصل هستند؟
آيا پرينتر مورد نظر به عنوان پرينتر پيشفرض تعريف شده يا نه؟

[mohammad410127]

سلام دوست عزيز
از چه كدي براي پرينت استفاده ميكنيد؟
سيستم هايي كه امتحان كرديد همشون به پرينتر وصل هستند؟
آيا پرينتر مورد نظر به عنوان پرينتر پيشفرض تعريف شده يا نه؟

فایل رو پیوست کردم
تمامی سیستمها به پرینتر وصل هستند و چک کردم همه به عنوان پیش فرض تعریف شدن

[حسام بحرانی]

سلام
این فایل در سیستمی که مد نظرتون هست باز نمیشه؟ یا اینکه باز میشه و دستور رو اجرا نمی کنه؟

[mohammad410127]

سلام
این فایل در سیستمی که مد نظرتون هست باز نمیشه؟ یا اینکه باز میشه و دستور رو اجرا نمی کنه؟

فایل باز میشه زمان چاپ رو تو سیستم مد نظرم میزنم با خطای microsoft visual basic for applications روبرو میشم

[Amir Ghasemiyan]

كدتون مشكلي نداره. تست كردم درست پرينت ميگيره
لطفا يه عكس از خطا و خطي كه خطا بهش مربوط ميشه رو ارسال بفرماييد

[mohammad410127]

[mohammad410127]

[mohammad410127]

كدتون مشكلي نداره. تست كردم درست پرينت ميگيره
لطفا يه عكس از خطا و خطي كه خطا بهش مربوط ميشه رو ارسال بفرماييد

منتظر راهنمایی شما هستم

[misammisam]

سلام
شما یه ماکرو برای پرینت سیو کردید و چون چاپگرها تنظیمات مختلفی دارن و شما همه تنظیمات رو سیو کردین درون یک ماکرو ( که اینکار اصلا لازم نیست ) ، بهمین خاطر روی چاپگر دومتون یسری تنظیمات اعمال میشه که اصلا اون چاپگر چنین قابلیتی نداره و سیسنم یه ارور نا معلوم میده .
شما کل کدتونو به این شکل جایگزین کنید رو اکثر چاپگرا جواب میده :

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

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