エクセルで作るブックレット（VBA）②中央揃えPDF出力編

前回①の「画像取り込み・面付け編」に引き続き、今回の②では、①で作成したページを「センタリングしてPDFへ出力する」というマクロがとても便利で威力を発揮したのでご紹介します。

センタリング、印刷プレビュー&PDF速攻出力はマクロにおまかせ！

下記ソースをマクロに登録すると、ページ設定からPDF出力までの流れがだいぶ楽になりました。ページレイアウトでいちいち余白を設定しなくてもセンタリングになってくれるのは嬉しいですね。

早速、以下のマクロを登録しましょう。
１）センタリングして、印刷プレビューを実行するマクロ

Sub 印刷プレビュー()

   With ActiveSheet.PageSetup
       .CenterHorizontally = True    '水平方向で中央寄せ
       .CenterVertically = True      '垂直方向で中央寄せ
       .Zoom = False
       .FitToPagesTall = 1
       .FitToPagesWide = 1
   End With
   
  ActiveSheet.PrintPreview

End Sub

2）「表面」sheetを「表面.pdf」というファイル名で出力するマクロ

Sub 表面sheetをPDF保存()

'表面という名のsheetをセンタリングし、表面.PDFというファイル名で出力保存

Dim i As Long

       For i = 1 To Sheets.Count    'すべてのシートをループ

       'シート名で条件分岐
       If Sheets(i).Name = "表面" Then
         Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, _
             fileName:=ActiveWorkbook.Path & "\" & Sheets(i).Name & ".pdf"
             
         Exit Sub
       End If
   Next i
   
    With ActiveSheet.PageSetup
       .CenterHorizontally = True    '水平方向で中央寄せ
       .CenterVertically = True      '垂直方向で中央寄せ
       .Zoom = False                 '拡大・縮小率を指定しない
       .FitToPagesTall = 1           '縦方向1ページで印刷
       .FitToPagesWide = 1           '横方向1ページで印刷
    End With
   
End Sub 

3）「裏面」sheetを「裏面.pdf」というファイル名で出力するマクロ

Sub 裏面sheetをPDF保存()

'裏面という名のsheetをセンタリングし、裏面.PDFというファイル名で出力保存

Dim i As Long

       For i = 1 To Sheets.Count    'すべてのシートをループ

       'シート名で条件分岐
       If Sheets(i).Name = "裏面" Then
         Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, _
             fileName:=ActiveWorkbook.Path & "\" & Sheets(i).Name & ".pdf"
             
         Exit Sub
       End If
   Next i
   
    With ActiveSheet.PageSetup
       .CenterHorizontally = True    '水平方向で中央寄せ
       .CenterVertically = True      '垂直方向で中央寄せ
       .Zoom = False                 '拡大・縮小率を指定しない
       .FitToPagesTall = 1           '縦方向1ページで印刷
       .FitToPagesWide = 1           '横方向1ページで印刷
    End With
   
End Sub 

注）Sheet1は「表面」、Sheet2は「裏面」というように、予めSheet名は変更しておいてください

出力したいセルを選択しよう

このプログラムは、歌詞カードだけでなく、フォトブックなどアイデア次第で色々作れるので、以下、フォトブックのスクショを使って解説します📷✨

上記の画像非表示スクショは、デザイン画像に合わせてセルを黒に塗りつぶしているため、画像が非表示になって真っ黒セルだけが表示されています。こうすると画像がズレることなく、セルを範囲選択しやすいです。

歌詞カードサイズにする場合、B4版1ページに2列&3行の計6枚まで選択できます。

そして「ページレイアウト」→「印刷範囲」→「印刷範囲の設定」を選択します。

早速、マクロを使って印刷プレビュー！

冒頭のマクロを実行します。

画像を６枚選択した場合、以下のようなプレビュー画面になります。

レイアウトに問題がなければ、このままPDFファイルに出力します。

PDFでファイル保存

『表面sheetをPDF保存』を選択して実行すると、編集しているエクセルファイルと同じ階層に「表面.pdf」が保存されます。

「表面.pdf」が同場所にある場合は、上書きされるので注意しましょう！

同様に「裏面」もセル選択し、『裏面sheetをPDF保存』マクロを実行して「裏面.pdf」を出力します。

自分でデザインした画像がこうして並ぶと嬉しいですね😁

私が行ったセブン、ファミマでは、PDFファイルでの両面印刷ができませんでした。ですので、コンビニで両面印刷する場合には、pdfをjpgファイルに変換してプリントしてくださいね☘📖☘

コンビニの両面プリントは、微妙に表裏がズレるので、画像は左右に余裕を残してデザインすることをオススメします。特に歌詞カードなどは、文字が切れないよう注意が必要。ページ数が多くなると紙が幾重にも重なり、表紙よりも中の頁が飛び出してスーツの袖からYシャツが見えているような状態になります。スーツならお洒落なんですが、歌詞カードだとお洒落じゃないので（汗）、ページ数が多い場合は、レイアウトを工夫してみてください。

カラープリントする前に、白黒プリントして各ページのレイアウトや文字をチェックするのは、必須作業👀 面倒でも手間をかけた作品は、完成した時に満足度が違います(*´ｪ`*)b

レイアウト等に問題がないことを確認したら、カラープリントへいよいよGO！

#駆け出しエンジニアのオリジナル歌詞カードプログラム奮戦記。試行錯誤しながら続きます💨