สั่ง print pdf กับ ตาราง Pivottable

[yodpao.b]

สั่ง print pdf กับ ตาราง Pivottable
ต้องการ print pdf กับ ตาราง Pivottable ครับ
เนื่องจาก ข้อมูลมีเขตสิ้นสุดที่ไม่แน่นอน
จึงใช้ code นี้

Code: Select all

Sub Macro_print()

    Range("C3:D8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PrintOut Copies:=1, Collate:=True
    
End Sub

Range(Selection, Selection.End(xlDown)).Select

คำสั่งนี้มันไม่ยอมลงไปด้านล่างครับ
แต่ตอนอัด แมโคร ผมทำลงมาสุดครับ
แก้ไขอย่างไรดีครับ

0.JPG (20.71 KiB) Viewed 23 times

จากรูปต้องการ print ส่วนนี้ตามรูป


ผลที่ได้ตามรูปด้านล่างครับ
ผิด ไม่ได้ตามต้องการ

1.JPG (22.46 KiB) Viewed 23 times

[snasui]

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

Range("C3", Range("d8").End(xlDown)).PrintOut Copies:=1, Collate:=True

หรือหากเป็นไปได้ว่าหลังบรรทัด D8 มีการซ่อนบรรทัดหรือไม่มีข้อมูล ปรับ Code เป็น

Range("c3", Range("d8").CurrentRegion).PrintOut Copies:=1, Collate:=True

[yodpao.b]

ขอบคุณครับผมขอใช้แบบ 2 ครับ