Outlookの繰り返し予定のリストを印刷するにはどうすればよいですか？

エクスポートによるOutlookの繰り返し予定のリストの印刷

VBAを使用したOutlookの繰り返し予定のリストの印刷

実際、Outlookで繰り返し予定のすべての回数のリストを直接印刷する方法はありません。しかし、カレンダーデータをExcelにエクスポートし、繰り返し予定のすべての回数をフィルタリングしてから印刷することができます。以下のように操作してください：

1. Outlookで、 ファイル > エクスポート（または開く） > インポート/エクスポート （またはインポート）をクリックしてください。

2. インポートおよびエクスポートウィザードで、「ファイルにエクスポート」オプションをクリックし、「次へ 」ボタンをクリックしてください。

3. 最初の「ファイルにエクスポート」ダイアログボックスで、「 カンマ区切り値」オプションをクリックし、「次へ」ボタンをクリックしてください。

4. 2番目の「ファイルにエクスポート」ダイアログボックスで、印刷したい繰り返し予定を含むカレンダー を選択し、「次へ」ボタンをクリックしてください。

5. 3番目の「ファイルにエクスポート」ダイアログボックスで、「参照」ボタンをクリックしてください。

6. これで「参照」ダイアログボックスが表示されます。（1）エクスポートされたCSVファイルを保存するターゲットフォルダを指定し、（2）ファイル名ボックスにCSVファイルの名前を入力し、（3）「OK」ボタンをクリックしてください。

7. 3番目と最後の「ファイルのエクスポート」ダイアログボックスで、「次へ 」ボタンと「完了」ボタンをクリックしてください。

8. 「日付範囲の設定」ダイアログボックスで、エクスポートするカレンダーの日付範囲を指定し、「OK」ボタンをクリックしてください。

9. ここまでで、OutlookのカレンダーはCSVファイルとしてエクスポートされています。CSVファイルが含まれているフォルダを開き、CSVファイルを右クリックしてコンテキストメニューから「 開く」>「 Excel」を選択してください。スクリーンショットをご覧ください：

10. エクスポートされたCSVファイルがExcelで開かれます。「件名」の列ヘッダーを選択し、「データ 」>「フィルター」をクリックしてください。スクリーンショットをご覧ください：

10. 「件名」の列ヘッダーにあるフィルターアイコンをクリックし、ドロップダウンリストから印刷する繰り返し予定の件名のみをチェックし、「 OK」ボタンをクリックしてください。

11. 指定した繰り返し予定の回数のみがフィルタリングされます。「ファイル」> 「印刷」をクリックして印刷してください。

この方法では、Outlookで繰り返し予定のリストを簡単に印刷できるVBAを紹介します。以下のように操作してください：

1. カレンダービューで、印刷する繰り返し予定の1回を選択し、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」>「モジュール」をクリックし、新しいモジュールスクリプトに以下のVBAコードを貼り付けます。

VBA: Outlookの繰り返し予定のすべての回数のリストを印刷する

Sub RecurringList()

Dim CalendarFolder As Outlook.MAPIFolder
Dim CalendarItems As Outlook.Items
Dim RestrictItems As Outlook.Items
Dim sFilter, sSubject, sOccur As String
Dim iNumRestricted As Integer
Dim itm, itmNew As Object
Dim tStart, tEnd As Date

Set CalendarFolder = Application.ActiveExplorer.CurrentFolder
Set CalendarItems = CalendarFolder.Items

   CalendarItems.Sort "[Start]"
CalendarItems.IncludeRecurrences = True

    tEnd = Format(Now + 10, "Short Date")

sSubject = Application.ActiveExplorer.Selection.Item(1).Subject

   sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017' And  [IsRecurring]  = True And [Subject] = " & sSubject

   Set RestrictItems = CalendarItems.Restrict(sFilter)

   iNumRestricted = 0

   For Each itm In RestrictItems
iNumRestricted = iNumRestricted + 1
sOccur = sOccur & vbCrLf & itm.Subject & vbTab & " >> " & vbTab & itm.Start & vbTab & " to: " & vbTab & itm.End
Next

Set itmNew = Application.CreateItem(olMailItem)
itmNew.Body = sOccur & vbCrLf & iNumRestricted & " occurrences found."
itmNew.Display

End Sub

注意: コード内の印刷する繰り返し予定の日付範囲を変更してください：sFilter = "[開始] >= '2016/11/1' And [終了] < '2017/6/30' And [isrecurring] = True And [件名] = " & strSubject

3. F5キーを押すか、実行ボタンをクリックしてこのVBAを実行します。

4. 選択した繰り返し予定のすべての回数のリストがコピーされ、新しいメールに貼り付けられます。下のスクリーンショットをご覧ください。「ファイル」 > 「印刷」 をクリックしてリストを印刷してください。

Outlookで空白のカレンダー（予定なし）を印刷する

Outlookで2週間/月のカレンダーを1ページに印刷する

Outlookで毎日のカレンダーを印刷する