Excelで表を使った顧客管理ソフトを作ってみよう

Step 11　顧客一覧を印刷

顧客一覧シートに「印刷」ボタンを追加しています。

顧客の印刷は下記の流れで行っています。
1）下記の印刷設定を行います。
　　左余白、右余白、上余白、下余白、ヘッダーマージン、フッターマージン、用紙サイズ、用紙方向
　　ヘッダータイトル文字「顧客一覧（抽出結果）」、ヘッダーに日付、フッターにページ数、カラー印刷
　　拡大／縮小率を85％
2）「会社名」「部署名」「名前」から最終行を取得
3）印刷範囲を選択
4）画面を更新
5）印刷プレビュー

Homeへ > Excelでアプリケーションソフト２ > 顧客管理ソフトを作ってみよう

シートのVBAコード

Private Sub CommandButton3_Click()
    Dim ln As Long
    Dim llast As Long

    With Sheets("顧客一覧").PageSetup
            .LeftMargin = 15
            .RightMargin = 15
            .HeaderMargin = 37
            .TopMargin = 70
            .FooterMargin = 37
            .BottomMargin = 70
            .PaperSize = xlPaperA4
            .Orientation = xlLandscape
            .CenterHeader = "&24顧客一覧"
            .RightHeader = "&D"
            .RightFooter = "&P／&N"
            .BlackAndWhite = False
            .Zoom = 85
    End With

    llast = Sheets("顧客一覧").Range("B65536").End(xlUp).Row
    ln = Sheets("顧客一覧").Range("C65536").End(xlUp).Row
    If ln > llast Then
        llast = ln
    End If
    ln = Sheets("顧客一覧").Range("D65536").End(xlUp).Row
    If ln > llast Then
        llast = ln
    End If

    Range(Cells(4, 1), Cells(llast, 12)).Select
    Application.ScreenUpdating = True
    Selection.PrintPreview
    Range("A5").Select
End Sub

顧客一覧画面

「印刷」ボタンを追加しています。
顧客印刷

■印刷プレビュー画面
A4横で印刷されます。
ヘッダーに日付、フッターにページ／総ページを印刷するようにしています。
顧客印刷プレビュー

Homeへ > Excelでアプリケーションソフト２ > 顧客管理ソフトを作ってみよう

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

Excelで表を使った顧客管理ソフトを作ってみよう

Step 11 顧客一覧を印刷

シートのVBAコード

顧客一覧画面

Step 11　顧客一覧を印刷