Snasui Excel Forum

Sub AutoPrintLet1()
Dim i As Long
For i = 9 To Application.Count(Sheet5.Range("C9:C" & Sheet5.Range("C" & Rows.Count).End(xlUp).Row))
Sheet63.Range("K1").Value = Sheet5.Range("C" & i).Value
'Sheet63.PrintOut
Next i
End Sub

[code]
Sub AutoPrintLet1()
Dim i As Long
For i = 9 To Application.Count(Sheet5.Range("C9:C" & Sheet5.Range("C" & Rows.Count).End(xlUp).Row))
Sheet63.Range("K1").Value = Sheet5.Range("C" & i).Value
'Sheet63.PrintOut
Next i
End Sub

[/code]puriwutpokin ขอบคุณครับ
ลองปรับแล้ว จากไฟล์ตัวอย่างมี 22 คน โค๊ดที่แนะนำ สั่งพิมพ์ได้แค่ 14 คนครับ

ได้แล้วครับ ลืม +8

Sub AutoPrintLet1()
Dim i As Long
For i = 9 To Application.Count(Sheet5.Range("C9:C" & Sheet5.Range("C" & Rows.Count).End(xlUp).Row))+8
Sheet63.Range("K1").Value = Sheet5.Range("C" & i).Value
'Sheet63.PrintOut
Next i
End Sub

ลองปรับเป็น
[code]Sub AutoPrintLet1()
Dim i As Long
For i = 9 To Application.Count(Sheet5.Range("C9:C" & Sheet5.Range("C" & Rows.Count).End(xlUp).Row))+8
Sheet63.Range("K1").Value = Sheet5.Range("C" & i).Value
'Sheet63.PrintOut
Next i
End Sub
[/code]

Sub AutoPrintLet1()
Dim i As Long
For i = 9 To Sheet5.Range("C" & Rows.Count).End(xlUp).Row
Sheet63.Range("K1").Value = Sheet5.Range("C" & i).Value
'Sheet63.PrintOut
Next i
End Sub

ผมทำเอกสารการเลื่อนเงินเดือนข้าราชการครู
โดยมี
ชีท School เก็บข้อมูลโรงเรียน
ชีท Main สำหรับกรอกข้อมูลเงินเดือนครู
ชีท Apil ใช้ดึงข้อมูลครูจากชีท Main แล้ว เขียนสูตรเพื่อคำนวณการเลื่อนเงินเดือน
ชีท Letter3 ทำเป็นหนังสือแจ้งการเลื่อนเงินเดือน โดยดึงข้อมูลมาจาก ชีท Apil (ใช้Vlookup ดึงข้อมูลมาแสดง)
แล้วเขียน Code ให้สั่งพิมพ์ตามจำนวนครูที่มีในโรงเรียน เช่น มีครู 22 คน ก็ให้สั่งพิมพ์ตั้งแต่คนทึ่ 1 ถึงคนที่ 22
ปัญหาที่พบคือ ผมสั่งพิมพ์แล้ว เมื่อถึงคนสุดท้ายของแถวแล้วมันไม่หยุด ยังคงสั่งพิมพ์ไปเรื่อย ๆ

[code]
Sub AutoPrintLet1()
Dim i As Long
For i = 9 To Sheet5.Range("C" & Rows.Count).End(xlUp).Row
Sheet63.Range("K1").Value = Sheet5.Range("C" & i).Value
'Sheet63.PrintOut
Next i
End Sub
[/code]

ขอความอนุเคราะห์ แนะนำ แก้ไขให้ด้วยครับ