หากจะทำใบนำส่งเอกสารหน้าละ 20 ตามแบบฟอร์ม

[gchart]

หากจะทำใบนำส่งเอกสารหน้าละ 20 ตามแบบฟอร์ม
โดยมีข้อมูลอยู่แล้วสามารถดึงใส่ฟอร์มเพื่อสังพิมพ์ได้เลย
ไม่ต้องก๊อปปี้วางทีละหน้าครับ
ขอบคุณครับ

[snasui]

ลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub PrintBatch()
Dim lng As Long, rs As Range, rt As Range
Set rt = Worksheets("ใบนำส่ง").Range("B8")
With Worksheets("Sheet1")
    For lng = 1 To .Range("A" & Rows.Count).End(xlUp).Row Step 20
        Set rs = .Range("A" & lng).Resize(20, 1)
        rs.Copy: rt.PasteSpecial xlPasteValues
        rs.Offset(0, 1).Copy: rt.Offset(0, 1).PasteSpecial xlPasteValues
        rs.Offset(0, 2).Copy: rt.Offset(0, 2).PasteSpecial xlPasteValues
        rs.Offset(0, 3).Copy: rt.Offset(0, 5).PasteSpecial xlPasteValues
    Next lng
End With
Application.CutCopyMode = False
End Sub

[gchart]

มันต้องสร้างปุ่มเพื่อเลือกหรือเปล่าครับ

[snasui]

จะสร้างหรือไม่ก็ได้ครับ กรณีไม่ได้สร้างปุ่มสามารถกดแป้น Alt+8 > เลือกชื่อ PrintBatch > Run

กรณีสร้างปุ่มเพื่อคลิกแล้ว Run Code ดูตัวอย่างที่นี่ครับ http://www.snasui.com/viewtopic.php?p=3488#p3488

[gchart]

ใส่โค๊ดแล้วมันรันไปหน้าสุดท้ายครับ

ผมจะเลื่อนดูแผ่นต่อไป หรือแผ่นก่อนหน้าอย่างไรครับ

[snasui]

Code นี้ Run ตั้งแต่หน้าแรกเป็นต้นไปครับ ที่เห็นว่าเป็นหน้าสุดท้ายเพราะว่า Run จนจบแล้ว ผมเขียนมาให้ตามโจทย์คือนำข้อมูลมาวางคราวละ 20 บรรทัดโดยไม่ได้ทำอะไรต่อ

หากจะกำหนดเพิ่มเติมว่าหลังจากวางแล้วจะทำอะไรต่อก่อนที่จะนำชุดต่อไปมาวางก็ต้องเขียน Code เข้ามาเพิ่มเติมครับ ยกตัวอย่างเช่น เมื่อนำข้อมูลมาวางแล้วให้ Print ทุกครั้งที่วางก็จะ Print ให้เช่นนี้เป็นต้นครับ

การที่จะเลื่อนดูได้ด้วยนั้นไม่ได้เขียนให้ครับ เพราะไม่ทราบตั้งแต่แรกว่าต้องการเช่นนี้ ลองออกแบบมาครับว่าจะเลื่อนดูหน้าอื่น ๆ โดยวิธีใด คีย์ลงในเซลล์หรือ ฯลฯ จะได้ช่วยดูต่อครับ

[gchart]

ใช้ปุ่มลูกศรเลื่อนไปครั้งละ 20 แบบนี้
ใช้วิธีสั่งพิมพ์แบบทีละครั้งครับ เพื่อจะได้ตรวจสอบไปด้วยครับ
ขออนุญาตเพิ่มข้อมูลอีก 1 คอลั่มนะครับ
ขอบคุณครับ

[snasui]

ลองตามไฟล์แนบครับ

1. ที่เซลล์ M1 คีย์สูตรเพื่อนับว่ารายการทั้งหมดมีจำนวนเท่าไร

=COUNTA(Sheet1!A:A)

Enter

2. สร้าง Object Scroll bar แล้วกำหนดให้ Link มายังเซลล์ B5 หากต้องการทราบว่ากำหนดค่าอย่างไรให้คลิกขวาที่ Scroll bar แล้วเลือก Format Control

3. ที่เซลล์ B8 คีย์สูตรเพื่อแสดงรายการ

=IF(20*($B$5-1)+ROWS(B$8:B8)>$M$1,"",INDEX(Sheet1!A:A,20*($B$5-1)+ROWS(B$8:B8)))

Enter > Copy ลงด้านล่าง > Copy สูตรนี้ไปใช้กับช่องอื่น ๆ

[gchart]

ได้ลองใส่ข้อมูลและสั่งพิมพ์แล้วใช้งานได้ปกติครับ
ขอบคุณครับ