ایجاد پی دی اف های فردی توسط کاربرگ

Question

لیسا یک ورک بوک دارد که شامل چندین کاربرگ است. او می خواهد برای این کاربرگ ها (یک پی دی اف در هر کاربرگ) با نام پی دی اف بر اساس نام کاربرگ ها، پی دی اف های جداگانه ایجاد کند. او فکر می کند که آیا راهی برای انجام این کار در اکسل وجود دارد.

راه هایی برای انجام آن وجود دارد، بسته به اینکه چقدر زمان می خواهید صرف کنید. اگر این یک اتفاق "یکباره" است، ممکن است فقط چاپ هر کاربرگ جداگانه را به صورت دستی در نظر بگیرید. یا، می توانید هر کاربرگ را در ورک بوک خودش کپی کنید و سپس هر ورک بوک را در PDF چاپ کنید.

اگرچه اینها کاملاً فشرده هستند. (به همین دلیل است که گفتم آنها ممکن است فقط برای موارد "یک بار" خوب باشند.) اگر می خواهید چیزی کمی خودکارتر باشد، می خواهید از ماکرو برای انجام فایل های PDF استفاده کنید. در اینجا یک مثال از یک ماکرو کوتاه است که ایجاد PDF را برای شما انجام می دهد:

Sub CreatePDFs()
    Dim wks As Worksheet
    Dim sFolder As String
    Dim sTemp As String

    sFolder = ActiveWorkbook.Path & ""

    sTemp = "Created PDFs for the following worksheets"
    For Each wks In ActiveWorkbook.Worksheets
        If wks.Visible = xlSheetVisible Then
            sTemp = sTemp & vbCrLf & "   * " & wks.Name
            wks.ExportAsFixedFormat Type:=xlTypePDF, _
              Filename:=sFolder & wks.Name & ".pdf", _
              OpenAfterPublish:=False
        End If
    Next

    MsgBox sTemp
End Sub

توجه داشته باشید که مسیر ذخیره شده در متغیر sFolder روی هر مسیری که با Workbook فعال مرتبط است تنظیم می شود. (اگر هنوز ورک بوک فعال را ذخیره نکرده اید، ماکرو به درستی اجرا نمی شود.) این مسیر پوشه ای است که فایل های PDF در آن ذخیره می شوند. اگر می خواهید آنها را در مکان دیگری ذخیره کنید، فقط مقدار اختصاص داده شده به متغیر sFolder را تغییر دهید.