ปริ้นแบบฟอร์มจากฐานข้อมูล

[kajonpor]

รบกวนสอบถามค่ะ

1. ต้องการปริ้นแบบฟอร์มจาก Sheet From (2021Use) โดยเลขลำดับอยู่ช่อง A2 มีทั้งหมด 103 คน ต้องการสั่งปริ้นทีเดียวออกมาครบทั้ง 103 คนเลย
2. ฐานข้อมูลอยู่ที่ Sheet Data2021


รบกวนด้วยนะคะ

[puriwutpokin]

การใช้ฟอร์มเดียวปริ้นทีเดียวตามที่แจ้ง​ ต้องใช้ VBA​ ลองบันทึก​ Macro ดูแล้วแก้ไขโค้ด​ หรือศึกษา​จากกระทู้เก่าๆ​ ดูครับ​ ติดต้องไหนมาถามกันต่อครับ

[kajonpor]

ขอบคุณนะคะ
ปอลองศึกษาจากกระทู้เก่าแล้วเจอCodeนี้ แต่เมื่อลองทำแล้วเกิดปัญหา
1. พอปิดไฟล์ หาMacro ไม่เจอ
2. หากปริ้นเป็นPDF ต้องกดSave ทุกหน้า ซึ่งสิ่งที่ต้องการคือ ให้รวมอยู่ไฟล์เดียวกันทั้งหมด 103 หน้า (มีข้อมูล 103 ข้อมูล
3. กล่องข้อความ เมื่อพิมพ์เป็นภาษาไทย พอรันMacro แล้วเป็นภาษาต่างด้าว
รบกวนด้วยนะคะ

ขอบคุณเจ้าของCodeนะคะ >>> อาจารย์ snasui
ขอบคุณเจ้าของกระทู้นะคะ >>> gchart
ขอบคุณGoogle ที่ทำให้หากระทู้เจอค่ะ


Option Explicit
Sub PrintOutput()
Dim i As Integer
Dim a As Integer
Dim v As Integer
On Error Resume Next
v = InputBox( _
Title:="StartNo.", _
prompt:="InputStartNo.")
a = InputBox( _
Title:="EndNo.", _
prompt:="InputEndNo.")
If Err = 13 Then
MsgBox "InputStartNo. to InputEndNo. "
Exit Sub
End If
For i = v To a
Range("a2") = i
Range("a2").NumberFormat = "000"
Range("a1:al24").PrintOut
Next i
End Sub

[puriwutpokin]

ต้อง Save ไฟล์เป็นนามสกุล .xlsm ครับหรือ .xlsb และก่อนสั่งให้เลือกเครื่องปริ้นเตอร์ก่อนครับ

[kajonpor]

ขอบคุณมากนะคะ คุณpuriwutpokin

ปริ้นออกจากเครื่องปริ้นได้แล้วค่ะ แต่ถ้าจะปริ้นเป็นPDF จะรวมหน้าไม่ได้ใช่รึเปล่าคะ

ขอรบกวนอีก 2 ข้อนะคะ

1. ตรงกล่องข้อความ MsgBox "InputStartNo. to InputEndNo. " ถ้าเปลี่ยนจาก InputStartNo. to InputEndNo. เป็นภาษาไทยว่า "ใส่ข้อมูล" มันจะแสดงเป็นภาษาต่างด้าวตรงนี้แก้ยังไงคะ
2. หากต้องการปริ้นเป็นไฟล์PDFเก็บไว้ ต้องแก้ไขCodeยังไงรึเปล่าคะ

รบกวนด้วยนะคะ

[puriwutpokin]

ทำตามรูปครับ ส่วน ถ้าปริ้นเป็น PDF เท่าที่คิดว่าต้องใช้คำสั่งในการ Merge อีกที ลองศึกษาดูก่อนถ้าไม่ได้ มาถามกันต่อครับ

[kajonpor]

ขอบคุณมากมากนะคะ