Outlook で繰り返し予定の1 件分のみをリスト形式で印刷するには、どうすればよいですか？

繰り返し予定の1 件のOutlook 定期的な予定のリストをエクスポートして印刷する

VBA を使用して、Outlook の繰り返し予定の1 件のリストを印刷する

実際には、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 = "[Start] >= '11/1/2016『 And [End] < 』6/30/2017'And  [IsRecurring]  = True And [Subject] = " & strSubject

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

4。これで、選択した繰り返し予定のすべての発生リストが、以下のスクリーンショットのように新規メールにコピー＆ペーストされます。ファイル＞印刷をクリックして、リストを印刷してください。

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

Outlook で1 ページあたり2 週間／2 か月分のカレンダーを印刷する

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