Snasui Excel Forum

Posted: **Wed Sep 28, 2011 3:51 pm**

ณ.ปัจุบันผมมีเนื้อหาอยู่ 5-6 บรรทัด แต่ไม่อยากให้เครื่อง Print แถว 1ทั้งแถวทำอย่างไรครับ
ส่วนเนื้อหาในบรรทัดตั้งแต่ 11 เป็นต้นไปจะมีเนื้อหาไม่แน่นอนแล้วแต่จำนวน ลองทำตรงตั้งค่าหน้ากระดาษแล้วไม่ตรงตามความต้องการกล่าวคือมันล็อกบรรทัด

untitled.GIF

Posted: **Wed Sep 28, 2011 5:38 pm**

กำหนด Print Area ก่อน Print ครับ

ตัวอย่าง Code ตามด้านล่าง ซึ่งเป็นการกำหนดพื้นที่โดยเริ่มตั้งแต้ A2 จนถึงคอลัมน์ G บรรทัดสุดท้ายที่มีข้อมูลครับ

Code: Select all

Sub SetPrintAreaBeforePrint()
Dim i As Integer
Dim lng As Long
lng = Rows.Count
i = Range("G" & lng).End(xlUp).Row
    ActiveSheet.PageSetup.PrintArea = "$A$2:$G$" & i
    ActiveSheet.PrintOut
' Other code
End Sub

Posted: **Fri Sep 30, 2011 10:59 am**

ขอบคุณมากครับ

Snasui Excel Forum

การ Print ใน Excle ทำอย่างไรครับ

การ Print ใน Excle ทำอย่างไรครับ

Re: การ Print ใน Excle ทำอย่างไรครับ

Re: การ Print ใน Excle ทำอย่างไรครับ