ขอแนวทางโค้ดสั่งปริ้นรายการที่เลือกค่ะ

[thinatda]

ขอแนวทางโค้ดสั่งปริ้นรายการที่เลือกค่ะ
1.ต้องการเลือกข้อมูลจาก sheetชื่อ เก็บข้อมูลไปรษณีย์ มาปริ้นค่ะ
2.เวลาปลิ้นออกมาอยากให้น่าตาเป็นเหมือน sheet p ค่ะ

[logic]

แนวทางเขียนโค้ดหาได้ในเว็บนี้หรืออินเตอร์เนตครับ

กติกาคือเขียนมาเองก่อนดูที่ข้อ 5 ด้านบนหน้านี้เลย

อย่าลืมเข้าไปแจ้งผลในกระทู้ที่ถามเอาไว้ด้วยตามกติกาข้อ 6 ครับ

[thinatda]

แนวทางเขียนโค้ดหาได้ในเว็บนี้หรืออินเตอร์เนตครับ

กติกาคือเขียนมาเองก่อนดูที่ข้อ 5 ด้านบนหน้านี้เลย

อย่าลืมเข้าไปแจ้งผลในกระทู้ที่ถามเอาไว้ด้วยตามกติกาข้อ 6 ครับ

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

ลองเอาไปใส่ในโมดูลแล้ว ไม่ได้ค่ะ

[logic]

ไม่เห็นมีโค้ดการพิมพ์ในไฟล์ที่แนบมาเลยครับ

[thinatda]

ไม่เห็นมีโค้ดการพิมพ์ในไฟล์ที่แนบมาเลยครับ

ขอโทษค่ะหนูแนบผิดไฟล์

[logic]

ดูแล้วไม่ใช่โค้ดที่เขียนให้วางข้อมูลและพิมพ์ข้อมูลของงานนี้ เว็บนี้ห้ามเอาโค้ดที่ไม่เกี่ยวข้องกับปัญหามาถามนะครับ

[thinatda]

ดูแล้วไม่ใช่โค้ดที่เขียนให้วางข้อมูลและพิมพ์ข้อมูลของงานนี้ เว็บนี้ห้ามเอาโค้ดที่ไม่เกี่ยวข้องกับปัญหามาถามนะครับ

คือหนูเอาโค้ดคนอื่นมาค่ะ แล้วอยากให้อาจารย์ดูให้ว่าต้องเปลี่ยนตรงไหนบ้างค่ะ

[logic]

แบบนั้นไม่มีใครตอบหรอกครับ มันผิดกฎ ต้องแก้โค้ดเองมาก่อน ถามที่เป็นปัญหานะครับ

[thinatda]

แบบนั้นไม่มีใครตอบหรอกครับ มันผิดกฎ ต้องแก้โค้ดเองมาก่อน ถามที่เป็นปัญหานะครับ

ค่ะ ขอบคุณค่ะ