أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil كود للطباعة علي طابعتين في نفس الوقت اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود لحفظ عدد معبن من الشيتات في ملف العمل بصيغة xlsm وصيغةpdf

اعضاء المنتدي الكرام السلام عليكم ورحمة الله ووبركاتة اريد كود لحفظ عدد معين من شيتات الملف مثلا ملف مكون من خمس شيتات و ..



23-12-2017 12:07 صباحا
a.kawkab
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-10-2017
رقم العضوية : 1076
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 14-10-1970
قوة السمعة : 32
الاعجاب : 0
 offline 
اعضاء المنتدي الكرام
السلام عليكم ورحمة الله ووبركاتة
اريد كود لحفظ عدد معين من شيتات الملف مثلا ملف مكون من خمس شيتات واريد حفظ شيت1وشيت3 وشيت5مرة بصيغة xlsmومرة اخري بصيغةPDFولكم جريل الشكر




27-12-2017 02:44 مساء
مشاهدة مشاركة منفردة [1]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
look/images/icons/i1.gif كود لحفظ عدد معبن من الشيتات في ملف العمل بصيغة xlsm وصيغةpdf
وعليكم السلام اخي اليك كود حفظ ورقة بصيغة PDF
جرب الكود التالي وانتظر الرد منك
وشكرا
[Sub PDFActiveSheet()
'لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
'for Excel 2010 and later
Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler

Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "yyyymmdd_hhmm")

'get active workbook folder, if saved
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & ""

'replace spaces and periods in sheet name
strName = Replace(wsA.Name, " ", "")
strName = Replace(strName, ".", "_")

'create default name for savng file
strFile = strName & "_" & strTime & ".pdf"
strPathFile = strPath & strFile

'use can enter name and
' select folder for file
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

'export to PDF if a folder was selected
If myFile <> "False" Then
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    'confirmation message with file info
    MsgBox "PDF file has been created: " _
      & vbCrLf _
      & myFile
End If

exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub

]




29-12-2017 09:06 مساء
مشاهدة مشاركة منفردة [2]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif كود لحفظ عدد معبن من الشيتات في ملف العمل بصيغة xlsm وصيغةpdf
 Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler

Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "yyyymmdd_hhmm"wink_3

'get active workbook folder, if saved
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & ""

'replace spaces and periods in sheet name
strName = Replace(wsA.Name, " ", ""wink_3
strName = Replace(strName, ".", "_"wink_3

'create default name for savng file
strFile = strName & "_" & strTime & ".pdf"
strPathFile = strPath & strFile

'use can enter name and
' select folder for file
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save"wink_3

'export to PDF if a folder was selected
If myFile <> "False" Then
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    'confirmation message with file info
    MsgBox "PDF file has been created: " _
      & vbCrLf _
      & myFile
End If

exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub




30-12-2017 07:36 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8663
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25520
الاعجاب : 192
 offline 
look/images/icons/i1.gif كود لحفظ عدد معبن من الشيتات في ملف العمل بصيغة xlsm وصيغةpdf
أخي الكريم مالك 
بارك الله فيك
يرجى وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط
للمزيد اطلع على الرابط التالي
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
سبب عدم اظهار النتائج الحسابيه الا بعد الحفظ كريم نظيم
6 312 YasserKhalil
الغاء رسائل الاكسيل عند الفتح او الحفظ مهيب
14 532 محمود ابو الدهب
لاول مرة على اليوتيوب يوزرفورم كامل للحفظ والبحث والحذف والتعديل فى كل اوراق العمل اكسيل vba emad ghazi
23 3134 محمد أبو العنين
كود لحفظ اليوزر فورم khaled alborene
5 1221 khaled alborene
طلب مساعدة في تعديل كود لحفظ ملف باسم معين سعيد العربي
1 534 سعيد العربي

الكلمات الدلالية
لحفظ ، معبن ، الشيتات ، العمل ، بصيغة ، xlsm ، وصيغةpdf ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:30 صباحا

أعلن هنا
أعلن هنا
أعلن هنا