印刷

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim i As Long
    
    If Target.Address = "$A$1" Then
    
        Range("A1:A5").Select
    
        For i = 1 To 110
        
            Range("A5") = i & "／110"
            
'            Selection.PrintPreview
            Selection.PrintOut Copies:=1, ActivePrinter:="TEC B-EX4T1-T", Collate:=False
        Next i
    
    End If

End Sub