merwanel07 قام بنشر أبريل 30, 2015 قام بنشر أبريل 30, 2015 صباح الخير على احسن منتدى و احسن شباب المرجو مساعدتي. اريد تسجيل الصفحة الاولى فقط من الشيت 1 بصيغة PDF وتكون تسمية الصفحة متغيرة حسب تغير قيمة مربع معين مثلا C10 جربت بالماكرو لكن يسجل الصفحة دائما بنفس الاسم و جربت اكواد عديدة لكنها تسجل ااشيت كلو هل يمكنكم مساعدتي اخوكم مروان من المغرب Facture.rar
مختار حسين محمود قام بنشر أبريل 30, 2015 قام بنشر أبريل 30, 2015 (معدل) جرب الكود ده Sub MOKHTAR_SaveAsPDF() Dim fName As String With Worksheets("Exemple facture chifrée") fName = ThisWorkbook.Name & .Range("C10").Value End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\" & Environ("UserName") & "\Desktop\" & fName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub الملف هيكون اسمه باسم الملف والخلية C10 تحياتى تم تعديل أبريل 30, 2015 بواسطه مختار حسين محمود 1
merwanel07 قام بنشر أبريل 30, 2015 الكاتب قام بنشر أبريل 30, 2015 السلام عليكم شكرا جزيلا لك على المجهود لكن يعطيني رسالة خطأ في هذا السطر With Worksheets("Exemple facture chifrée")
مختار حسين محمود قام بنشر أبريل 30, 2015 قام بنشر أبريل 30, 2015 (معدل) جرب المرفق التالى يبدو أنك أخطأت فى نسخ الكود Facture.rar تم تعديل أبريل 30, 2015 بواسطه مختار حسين محمود
مختار حسين محمود قام بنشر أبريل 30, 2015 قام بنشر أبريل 30, 2015 حدد الاجابة التى تعجبك ليظهر الموضوع منتهى
ياسر خليل أبو البراء قام بنشر أبريل 30, 2015 قام بنشر أبريل 30, 2015 الأخ الفاضل مروان يرجى تغيير اسم الظهور للغة العربية .. راجع التوجيهات هااااااااااااام وضروري http://www.officena.net/ib/index.php?s=d6ea3650efcc28c459c126a6e93260f7&showtopic=60147 كما يرجى تحديد المشاركة التي أعجبتك كأفضل إجابة .. نفسي نتعلم النظااااااااام تقبل تحياتي 1
ياسر خليل أبو البراء قام بنشر أبريل 30, 2015 قام بنشر أبريل 30, 2015 الأخ الحبيب الغالي مختار جزيت خيراً على الكود الرائع فقط جزئية بسيطة جداً لم تعجبني ..ألا وهي وجود امتداد الملف في اسم الملف المصدر قم بتغيير السطر إلى fName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & " " & .Range("C10").Value تقبل تحياتي 1
مروان 7 قام بنشر مايو 1, 2015 قام بنشر مايو 1, 2015 ارجو المعذرة لاني لم اقرأ قوانين وشروط المنتدى لقد عدلت على بروفايلي سامحوني من فضلكم من فضلكم يا اساتذة الكود مفيد جدا لكن يحفظ كل الورقة انا اتمنا ان يسجل الصفة الاولى فقط و اختا مسار الحفظ بنفسي مثال.rar
ياسر خليل أبو البراء قام بنشر مايو 1, 2015 قام بنشر مايو 1, 2015 أخي الفاضل مروان إنت ليه عملت حساب جديد !! كان من المفترض إنك تعدل الحساب القديم وتغير اسم الظهور فقط عموما بالنسبة لطلبك في منتهى البساطة ..لو إنت عايز صفحة واحدة فقط من صفحات ورقة العمل .. تحدد النطاق للصفحة الأولى المراد عمل تصدير لها وتروح للتبويب Page Layout ثم تختار Print Area ثم تختار Set Print Area وأخيراً نفذ الكود صراحة حاولت في ملفك ولكن يبدو أن الملف به أمر غير طببيعي ولم أدرك ما هي مشكلته فقمت بتجربة الكود في ملف مرفق من عندي ليتضح لك أنه يمكنك تصدير صفحة واحدة فقط من صفحات ورقة العمل Save First Page Of Worksheet As PDF.rar 3
مختار حسين محمود قام بنشر مايو 1, 2015 قام بنشر مايو 1, 2015 (معدل) بارك الله فيك أخى وأستاذى ياسر وهذا كود أخر لحفظ مدى محدد بصيغة PDF Sub Save_Range_As_PDF() ActiveSheet.Range("A1:h53").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="H:\Test pdf File.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub غير الاسم والمسار الى ما تحب طبقت الكود على المرفق مثال بس غيرت اسم الملف فقط حفظ مدى محدد بصيغة PDF.rar تم تعديل مايو 1, 2015 بواسطه مختار حسين محمود 3
ياسر خليل أبو البراء قام بنشر مايو 1, 2015 قام بنشر مايو 1, 2015 الأخ الكريم مروان الالتزام بالتوجيهات مطلوب يرجى اختيار أفضل إجابة ليظهر الموضوع مجاب ومنتهي .. تقبل تحياتي
مروان 7 قام بنشر مايو 5, 2015 قام بنشر مايو 5, 2015 اخي الفاضل ياسر خليل كيف يمكنني ان اختار أفضل اجابة
ياسر خليل أبو البراء قام بنشر مايو 5, 2015 قام بنشر مايو 5, 2015 الأخ الكريم مروان راجع رابط التوجيهات التوجيه السابع http://www.officena.net/ib/index.php?showtopic=60147
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.