สอบถามเกี่ยวกับการ สั่งPrintของ Excel ครับ

[jullathep]

คือผมได้ความต้องการมาใหม่ คือจาก File ใน Sheet Payment
ผมต้องทำการเลือก No.ที่ช่อง A17 เพื่อนเปลี่ยนข้อมูลของแต่ละคน ซึ่งมีทั้งหมด 17 คน แล้วสั่งปริ้น
ทีนี้ เบื้องบนต้องการ แบบว่า สั่งปริ้นทีเดียว 17 คนเลย ในหน้า Payment โดยข้อมูลก็เปลี่ยนไปตามนั้นๆ จะสามารถทำได้หรือไม่ครับ
ขอบคุณสำหรับคำแนะนำ ครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Button2_click()
    Dim i As Integer
    For i = 1 To 17
        ActiveSheet.Range("A17").Value = i
        ActiveWindow.SelectedSheets.PrintOut
    Next i
End Sub

[jullathep]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Button2_click()
    Dim i As Integer
    For i = 1 To 17
        ActiveSheet.Range("A17").Value = i
        ActiveWindow.SelectedSheets.PrintOut
    Next i
End Sub

ขอบคุณมากครับอาจารย์