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

Private Sub CommandButton5_Click()
    Dim filarea As Object
    Dim ln As Long
    
    If ActiveSheet.AutoFilterMode = False Then
        MsgBox "抽出されていません。"
        Exit Sub
    End If
    
    Set filarea = Worksheets("顧客一覧").Range("A4").CurrentRegion
    ln = filarea.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1
    If ln = 0 Then
        MsgBox "印刷するデータがありません。"
        Exit Sub
    End If
    
    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
    
    ln = Sheets("顧客一覧").Range("A65536").End(xlUp).Row
    Range(Cells(4, 1), Cells(ln, 12)).Select
    Application.ScreenUpdating = True
    Selection.PrintPreview
End Sub