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

موضوع: تبدیل شیت ها به pdf به صورت جداگانه

  1. #1


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

    تبدیل شیت ها به pdf به صورت جداگانه

    با این کد میتونید از تمام شیت ها به صورت جداگانه به فایل PDF تبدیل کنید
    کد:
    Option Explicit
    Sub Print_PDF()
    Dim Awb As Workbook
    Dim Snr As Integer
    Dim ws As Worksheet
    Set Awb = ActiveWorkbook
     
     
    For Each ws In Awb.Sheets
        If Not ws.Name = "Sheet1" Then
            'Sheets(ws.Name).Copy
            Awb.Sheets(ws.Name).Copy
            'Sheets(ws.Name).Select
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            Awb.Path & "\" & Awb.Sheets(ws.Name).Name & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=False
           
            ActiveWindow.Close False
        End If
    Next ws
     
     
    End Sub
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.


  2.  

  3. #2


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,198
    امتیاز
    3248
    سپاس
    1,566
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    با درود
    ممنون فقط یه مسئله جاش تو اموزش وی بی بود نه تو تالار پرسش . ممنون
    در پناه خداوندگار ایران زمین باشید و پیروز


  4. #3


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

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



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

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

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

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

  1. انتقال داده های یک شیت به شیت دیگر به صورت پویا
    توسط Nima در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 5
    آخرين نوشته: 2020/10/01, 07:48
  2. جدا کردن شیت های فایل به صورت فایل های مجزای اکسل
    توسط ~M*E*H*D*I~ در انجمن توابع در ويژوال بيسيك - Functions in VBA
    پاسخ ها: 7
    آخرين نوشته: 2019/04/10, 05:00
  3. پاسخ ها: 5
    آخرين نوشته: 2015/02/12, 21:52
  4. مشکل کپی اطلاعات یک سطر اکسل در صورت برقراری شرط در شیت دیگر
    توسط goblinup در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 14
    آخرين نوشته: 2014/04/18, 16:25
  5. فراخوانی داده از شیت دیگر به صورت رندوم
    توسط sas_ily در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 5
    آخرين نوشته: 2012/06/30, 20:37

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

تبدیل شیت های اکسل به pdf

ويژال بيسيك اكسس تبديل به پيديف

اکسل به پی دی اف یک شیت چند صفحه شود

کد vbaتبدیل فایل اکسل به pdf

تبدیل کسل 2013 به پی دی اف

تبدیل‌ فایل اکسل به پی‌ دی اف

تبدیل کردن فایل اکسل به PDF

تبدیل فایل pdfبه اکسل

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

تبدیل شیت های اکسل به فایل اکسل

پي دي اف اكسل اسماعيلي

تبدیل شیت های اکسل به فایل های جداگانه

تبدیل صفحه اکسل به pdf

تبدیل فایل pdf به اکسل در محیط vba

تبدیل اکسل به پی دی اف در ویژوال بیسیک

تبدیل یک شیت چند صفحه پی دی اف

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

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

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

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