Step28　送り状もPDFファイルに追加する

請求書のPDFファイル保存に送り状を追加します。別ファイル保存と同じ方法ですが、送り状を1ページ目にし別ファイルは自動で閉じるようにします。

送り状を１ページ目に作成するには、Worksheets.Add(Before:=Worksheets("請求書（控え）")).NameのようにBeforeの引数で指定します。

PDF用の元ファイルを自動で閉じるにはCloseメソッドを使います。
これを実行すると「保存しますか？」のメッセージが表示されるので、Application.DisplayAlerts = Falseを事前に実行し、Close後Application.DisplayAlerts = Trueで戻しておきます。

Homeに戻る > Excelでアプリケーションソフト３ > 請求書アプリ

作成画面

■送り状のコードを追加します

CommandButton3_Clickイベント内に下のコードを追加します。
別ファイル保存と異なるのは、請求書（控え）シートの前に送り状を追加しているのと、自動でPDF用の元ファイルを閉じるようにしたことです。

    Workbooks(sNewBook).Worksheets.Add _
    (Before:=Worksheets("請求書（控え）")).Name = "送り状"
    Workbooks(sSrcBook).Worksheets("送り状").Columns("B:J").Copy
    Workbooks(sNewBook).Worksheets("送り状").Columns("B:J").PasteSpecial
    Workbooks(sNewBook).Worksheets("送り状").Range("B14").Value = _
    Workbooks(sSrcBook).Worksheets("送り状").Range("B14").Value

    Workbooks(sNewBook).Worksheets("送り状").PageSetup.PrintArea = _
        Workbooks(sNewBook).Worksheets("送り状").Range("B2:J43").Address

    Workbooks(sNewBook).Worksheets("送り状").PageSetup.LeftMargin = _
        Application.CentimetersToPoints(1.2)
    Workbooks(sNewBook).Worksheets("送り状").PageSetup.RightMargin = _
        Application.CentimetersToPoints(1.2)
    Workbooks(sNewBook).Worksheets("送り状").PageSetup.TopMargin = _
        Application.CentimetersToPoints(3.1)
    Workbooks(sNewBook).Worksheets("送り状").PageSetup.BottomMargin = _
        Application.CentimetersToPoints(1.9)

    Workbooks(sNewBook).Worksheets("送り状").PageSetup.CenterHorizontally = True

    Workbooks(sNewBook).Worksheets("送り状").Range("A1").Select

    Workbooks(sNewBook).Worksheets("請求書（控え）").Activate

    Workbooks(sNewBook).ExportAsFixedFormat _
    Type:=xlTypePDF, Filename:=sSaveFile

    Application.DisplayAlerts = False
    Workbooks(sNewBook).Close
    Application.DisplayAlerts = True

    MsgBox "ＰＤＦファイルが作成できました。"