Snasui Excel Forum

Code: Select all

Public print_list
Public msg


Sub print_selected()
    
    Call OptimizeCode_Begin
        Call check_print
        
        tbl_up = ActiveSheet.ListObjects("Input").HeaderRowRange.Row
        tbl_low = ActiveSheet.ListObjects("Input").TotalsRowRange.Row
        
        ub = Selection.Rows(1).Row
        lb = Selection.Rows.Count + ub - 1
        
        If tbl_up >= ub Or tbl_low <= lb Then
            MsgBox "กรุณาเลือก ให้อยู่ในตาราง"
            Exit Sub
        End If
        
        Range("E" & ub & ":" & "E" & lb).Select
        Selection.Copy
    
        Range("AR1").Select
        Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        
        Range("AR1").Select
        Selection.End(xlDown).Select
        sel = ActiveCell.Row
        
        If sel = 1048576 Then
            Range("E7").Value = Range("AR1").Value
            Call print_s
        Else
            id_array = Range("AR1:AR" & sel)
            For Each id_a In id_array
                Sheets("Input").Select
                Range("E7").Value = id_a
                Call print_s
            Next id_a
        End If
        
        Sheets("Input").Select
        Columns("AR:AR").Select
        Selection.Delete Shift:=xlToLeft
        
        Range("A1").Select
    Call OptimizeCode_End
    
End Sub