Page 1 of 1

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

Posted: Sun May 31, 2020 5:39 am
by 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
0.JPG (20.71 KiB) Viewed 31 times
จากรูปต้องการ print ส่วนนี้ตามรูป


ผลที่ได้ตามรูปด้านล่างครับ
ผิด ไม่ได้ตามต้องการ
1.JPG
1.JPG (22.46 KiB) Viewed 31 times

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

Posted: Sun May 31, 2020 8:06 am
by snasui
:D ตัวอย่างการปรับ Code ครับ

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

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

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

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

Posted: Sun May 31, 2020 3:34 pm
by yodpao.b
ขอบคุณครับผมขอใช้แบบ 2 ครับ