نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: تبدیل شیت به pdf و ذخیره به نام دلخواه (آموزشی)

  1. #1


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    تبدیل شیت به pdf و ذخیره به نام دلخواه (آموزشی)

    سلام دوستان
    با این کد میتونید شیت مورد نظر رو به PDF تبدیل کنین و جالب اینکه میتونین از سه تا سلول یا بیشتر به عنوان اسم فایلتون انتخاب کنید
    کد:
    Sub SaveAsPDF()
    'Saves active worksheet as pdf using concatenation
    'of A1,A2,A3
    
    Dim fName AsString
    With ActiveSheet
        fName = .Range("A1").Value & .Range("A2").Value & .Range("A3").Value
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\My Documents\" & fName, Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    EndWith
    EndSub
    
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.


  2.  

  3. #2


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    کد:
    Sub SaveAsPDF()
    
    
    Dim fName AsString
    With Worksheets("My Sheet")
        fName = .Range("A1").Value & .Range("A2").Value & .Range("A3").Value
    EndWith
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\My Documents\" & fName, Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    EndSub
    این کد برای شیت مورد نظر هست
    ویرایش توسط ~M*E*H*D*I~ : 2014/06/25 در ساعت 08:43


  4. #3


    آخرین بازدید
    2022/01/21
    تاریخ عضویت
    January 2014
    نوشته ها
    6
    امتیاز
    16
    سپاس
    1
    سپاس شده
    6 در 1 پست
    سطح اکسل
    42.00 %

    چگونه میشه دو شیت از سه شیت یک فایل اکسل را تیدیل به یک فایل PDF کرد؟
    ترجیحا اگه Print area متغیر و از مثلا یکی از سلول ها بخونه خیلی بهتره
    آیا میشه بصورت فوتر بهش شماره صفحه داد؟


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پاسخ ها: 3
    آخرين نوشته: 4 هفته پیش, 23:24
  2. Create a summary worksheet from all worksheets (جمع کردن اطلاعات تمامی شیت ها در یک شیت)
    توسط امين اسماعيلي در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2016/06/15, 18:35
  3. پاسخ ها: 6
    آخرين نوشته: 2016/05/24, 11:54

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

تبديل شيت اكسل به پي دي اف

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است