＞３．B1:B12を印刷範囲指定して印刷する
 
となっていますが、12行目までの決め打ちなんですか？（しかもB列のみ印刷？）

それとも、B1:Q列の最下行 なのですか？


 
 
 

すると、こんなことかな？

Sub main()　　　'差し替え後
    Dim cSt As String
    Dim i As Long
    Dim dSh As Worksheet
    Dim pSh As Worksheet
    Dim dRng As Range
    
    cSt = "○△□☆◇"
    
    Set dSh = Worksheets("data")
    Set pSh = Worksheets("印刷")
    
    pSetUp pSh
    
    For i = 1 To Len(cSt)
        
        With dSh
            .AutoFilterMode = False
            .Range("A3:L4").CurrentRegion.AutoFilter 1, Mid$(cSt, i, 1)
            
            Set dRng = Nothing
            On Error Resume Next
                Set dRng = .AutoFilter.Range
            On Error GoTo 0
        End With
        
        '印刷
        If Not dRng Is Nothing Then
            If Application.CountIf(dRng.Columns("A"), Mid$(cSt, i, 1)) Then
                
                With pSh
                    .Range("A4", .Cells(.UsedRange.Rows.Count, "L")).Clear
                    dRng.Offset(1).Resize(, 12).Copy .Range("A4")
                    .Range("Z1:Z4").Copy .Cells(.Rows.Count, "B").End(xlUp).Offset(2)
                    .PageSetup.PrintArea = .Range("B1:L12").Address
                    '.PrintOut Preview:=True
                    .PrintOut ActivePrinter:="AAA"
                End With
            End If
        End If
    Next
    
    dSh.AutoFilterMode = False
End Sub

Private Sub pSetUp(sh As Worksheet)
    '省略
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

＞ dRng.Offset(1).Resize(, 12).Copy .Range("A4")
　　　　　　　　　　　　　↓
 　dRng.Offset(1).Resize(dRng.Rows.Count - 1, 12).Copy .Range("A4")

としてみてください。