محمد 9009 قام بنشر مارس 28, 2020 مشاركة قام بنشر مارس 28, 2020 الاخوة القائمين على هذا الصرح الكبير السلام عليكم ورحمة الله وبركاته ارجو المساعده في ايجاد كود لطابعة شيتات على صيغة PDF اسماء الاوراق عندي كما يلي MH-55- 235235 MF-23-696969 يعني هناك اورق MH-55- 235235 MH-55- 235230 MH-55- 235225 MH-55- 235260 MF-23-50026262 MF-23-50026263 MF-23-50026265 اريد الكود ان يقوم بطابعة الاوراق تبدا باول حرفين دون النظر لبقية اسم الصفحة MH-55 MF-23 دون النظر لبقية الارقام فمن المفترض ان يقوم بطابعة سبع صفحات لي Private Sub CommandButton3_Click() ThisWorkbook.Sheets("MH-55"& "MF-23").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\hbN.pdf", Openafterpublish:=True End Sub رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مارس 28, 2020 أفضل إجابة مشاركة قام بنشر مارس 28, 2020 جرب هذا الكود Option Explicit Sub Rrint_out() Dim sh As Worksheet For Each sh In Sheets If sh.Name Like "??" & "-##*" Then 'Choose sh.PrintPreview Or sh.PrintOut sh.PrintPreview ' sh.PrintOut End If Next End Sub رابط هذا التعليق شارك More sharing options...
محمد 9009 قام بنشر مارس 28, 2020 الكاتب مشاركة قام بنشر مارس 28, 2020 اخ سليم الكود اضعه وين في form ام Module رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 28, 2020 مشاركة قام بنشر مارس 28, 2020 ضعه في الفورم form احذف اول سطر من الكود وضع مكانه Private Sub CommandButton3_Click() اذا كان رقم الزر التنفيذ 3 او استبدل 3 برقم زر التنفيذ 1 رابط هذا التعليق شارك More sharing options...
محمد 9009 قام بنشر مارس 29, 2020 الكاتب مشاركة قام بنشر مارس 29, 2020 بارك الله في علمك اخي سليم 🌹🌹🌹🤲 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.