Snasui Excel Forum

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

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

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

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

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

Sub Macro_print()

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

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

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

End Sub[/code]

[quote]Range(Selection, Selection.End(xlDown)).Select[/quote]
คำสั่งนี้มันไม่ยอมลงไปด้านล่างครับ
แต่ตอนอัด แมโคร ผมทำลงมาสุดครับ
แก้ไขอย่างไรดีครับ

[attachment=1]0.JPG[/attachment]
จากรูปต้องการ print ส่วนนี้ตามรูป


ผลที่ได้ตามรูปด้านล่างครับ
ผิด ไม่ได้ตามต้องการ
[attachment=0]1.JPG[/attachment]