خواص کتاب کار چاپ در اکسل

Question

هنگامی که در حال جمع آوری یک کتاب کار هستید، اکسل مقدار کمی از اطلاعات را ردیابی می کند که در مجموع به عنوان ویژگی های کتاب کار اشاره می کند. با نمایش کادر محاوره ای Properties می توانید ویژگی های مختلف نگهداری شده را مشاهده کنید.

در Word شما می توانید در صورت تمایل، ویژگی های سند را چاپ کنید. هیچ راه ذاتی برای چاپ ویژگی های کتاب کار در اکسل وجود ندارد. در عوض، باید به یک ماکرو متوسل شوید که نام و مقادیر ویژگی ها را در یک کاربرگ قرار می دهد. سپس می‌توانید کاربرگ را چاپ کنید و ویژگی‌های کتاب کار خود را در قالب نسخه چاپی در دسترس داشته باشید.

ماکرو زیر نمونه‌ای از یک روش خوب برای کپی کردن تمام ویژگی‌های کتاب کار در یک کاربرگ قابل چاپ است:

Public Sub WorkbookProperties()
    Dim p As DocumentProperty
    Dim iRow As Integer

    Add new worksheet for info
    Worksheets.Add

    Built in Properties
    iRow = 1
    Cells(iRow, 1).Value = "Built-in Properties"
    Cells(iRow, 1).Font.Bold = True
    iRow = iRow + 1
    Worksheets(1).Activate
    For Each p In ActiveWorkbook.BuiltinDocumentProperties
        On Error Resume Next
        Cells(iRow, 2).Value = p.Name
        If no value then Excel causes an error so ignore!
        Cells(iRow, 3).Value = p.Value
        iRow = iRow + 1
    Next
    On Error GoTo 0

    Custom Properties
    iRow = iRow + 1
    Cells(iRow, 1).Value = "Custom Properties"
    Cells(iRow, 1).Font.Bold = True
    iRow = iRow + 1
    For Each p In ActiveWorkbook.CustomDocumentProperties
        On Error Resume Next
        Cells(iRow, 2).Value = p.Name
        Cells(iRow, 3).Value = p.Value
        iRow = iRow + 1
    Next
    On Error GoTo 0
End Sub