الشيباني1 قام بنشر يناير 3, 2013 قام بنشر يناير 3, 2013 اخواني الاعزاء تحية طيبه ادناه كودان لطبع مدى على طابعتين المشكله انني عند ضغط زر الطابعه الاولى ( التي هي افتراضيه ) وانجاز مهمتها والتحول الى الطابعة الثانيه ( كانون ) لطبع المدى وضغط الزر الخاص بها تبقى الطابعة الاولى مما يضطرني الى الاستعانة بالطريقة التقليديه للطباعه . ما وددت الحصول عليه تعديل في الاكواد او كود جديد لاداء مهمتي الطابعتين مع الامتنان Sub copy_pdf() ' ' copy_pdf ماكرو ' الماكرو مسجل 12/01/2011 بواسطة USER ' ' Range("A2:J47").Select Application.ActivePrinter = "CutePDF writer على CPW2:" Selection.PrintOut Copies:=1, ActivePrinter:="CutePDF writer على CPW2:", _ Collate:=True Range("B2:J47").Select End Sub Sub print_2() ' ' print_2 ماكرو ' الماكرو مسجل 30/12/2012 بواسطة USER ' ' Range("A2:J47").PrintOut Copies:=1, Collate:=True Application.ActivePrinter = "Canon MF3200 Series على Ne06:" End Sub
أبو إيمان قام بنشر يناير 3, 2013 قام بنشر يناير 3, 2013 (معدل) بسم الله والصلاة والسلام على رسول الله أخي الفاصل tofimoon4 بعد إذن الأساتذة الأفاضل وعمالقة الإكسيل إليك هذا الكود ولعله ينفع الكود الأول ( لاستخدام الطابعة الافتراضية ) Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True الكود الثاني ( لاستخدام أي طابعة أخرى ) Application.ActivePrinter = "Canon iR C2570 on LPT1:" Activewindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "Canon iR C2570 on LPT1:", Collate:=True وفى هذا الكود يتم كتابة اسم الطابعة ثم on ثم المخرج الموصل عليه الطابعة مع الأخذ فى الاعتبار انه إذا تم حذف الطابعة التي سوف تقوم بتدوين اسمها فى الكود سوف يظهر لك رسالة خطأ أسأل الله أن ينفع ويفي بالغرض وأتمنىى من الأساتذة الأفاضل إذا كان هناك كود أفضل من ذلك الإفادة به تم تعديل يناير 3, 2013 بواسطه Mr_Eldeeb
الشيباني1 قام بنشر يناير 4, 2013 الكاتب قام بنشر يناير 4, 2013 اخي العزيز تحية طيبه ارجو التقضل بوضع الطابعتين ادناه ضمن كود او كودين ليقوما باداء المطلوب منهما منعزلتين حيث ان الاولى تستخدم للحفظ ك(pdf) والثانيه للطباعه الاعتياديه مع الشكر Application.ActivePrinter = "CutePDF writer على CPW2:" Application.ActivePrinter = "Canon MF3200 Series على Ne06:"
أبو إيمان قام بنشر يناير 4, 2013 قام بنشر يناير 4, 2013 السلام عليكم ورحمة الله وبركاته هل معنى كلامك أنك تريد الافتراضي ما يخرج الملف على شكل PDF والثانية هي Canon أم العكس وما هي المخرج الموصل عليه الطابعة Canon وما هو المخرج المخصص للبرنامج الخاص بتحويل الملف إلى صيغة PDF
الشيباني1 قام بنشر يناير 5, 2013 الكاتب قام بنشر يناير 5, 2013 اخي العزيز مع شكري وتقديري كما مثبت في رسالتي الاخيره الطابعه الاولى هي الافتراضيه التي تطبع ك(pdf ) ومنفذها كما موضح امامها ( CPW2 )والثانيه كانون للطباعة الاعتياديه ومنفذها (Ne06) مع الامتنان
أبو إيمان قام بنشر يناير 5, 2013 قام بنشر يناير 5, 2013 السلام عليكم أخي الفاضل أرجو من الله أن أكون وفقت لتنفيذ ما تحتاجه وإليك المرفق التالي طابعتين.rar
الشيباني1 قام بنشر يناير 6, 2013 الكاتب قام بنشر يناير 6, 2013 اخي العزيز مع شكري وتقديري الكودان لم ينفذا المطلوب ارجو اعتبار الموضوع منتهيا عند هذا الحد مع الامتنان
أبو إيمان قام بنشر يناير 7, 2013 قام بنشر يناير 7, 2013 أخي الفاضل ممكن إفادتي بالرسالة التي تظهر لك (هذا من شأنه أن يعلمنى شئاً )
احمد فضيله قام بنشر يناير 7, 2013 قام بنشر يناير 7, 2013 السلام عليكم و رحمة الله و بركاته الاستاذ / توفي مون الكود التالي يقوم باظهار باظهار مربع لإختيار الطابعات المثبته على جهازك Application.Dialogs(xlDialogPrinterSetup).Show و ارجو من الله ان يفيدك هذا الكود و الله المستعان و السلام عليكم و رحمة الله و بركاته
احمد فضيله قام بنشر يناير 7, 2013 قام بنشر يناير 7, 2013 السلام عليكم و رحمة الله و بركاته رساله للأخين المشاركين بالموضوع ارجو متابعة هذا الموضوع على الرابط التالي http://www.officena.net/ib/index.php?showtopic=41520&hl= و الله المستعان و السلام عليكم و رحمة الله و بركاته
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.