กรณีนี้คุณต้องตีเส้นใน Report_Page event ครับ โดยใช้ .ScaleMode เพื่อกำหนดหน่วยวัดที่ใช้ (1=Twip โดยที่ 1 นิ้ว=1440 twip, 5=นิ้ว, 6=มิลลิเมตร, 7=เซนติเมตร) , ใช้ .DrawWidth เพื่อกำหนดความหนาของเส้น (หน่วยเป็น Pixel) และใช้ฟังก์ชั่น RGB(Red, Green, Blue) เพื่อกำหนดสี และใช้ .Line (Top,Left) - (Width,Height) เพื่อวาดครับ

ตย.เป็นดังนี้

Private Sub Report_Page()
    Me.ScaleMode = 5 ' นิ้ว
    Me.DrawWidth = 25 ' Pixel
    Me.Line (0, 0)-(1440, 1440), RGB(0, 0, 0)   ' วาดเส้นเฉียงลง 45 องศา
End Sub

ขออนุญาตตอบนะครับ ผมพอมีตัวอย่างคล้ายๆ คำถามข้างต้น แต่ผมสร้างด้วยมาโครไว้นานแล้ว ไม่ได้ทำตามวิธีของ อ.สันติสุข โดยผมกำหนดให้พิมพ์รายงานหน้าละ 10 บรรทัด ส่วนที่เกินให้ขึ้นหน้าใหม่พร้อมเพิ่มบรรทัดว่างๆ (เป็นวิธีแบบบ้านๆ แต่พอใช้งานได้ครับ) หากสนใจลอง DL ตาม Link นี้ครับ
http://www.mediafire.com/?gyjj5zwozno
ลองนำไปปรับดูครับ ไม่รู้ว่าตรงตามต้องการหรือเปล่า

คุณภาณุวัฒน์ ถามมา ผมตอบไม่ได้ครับผมไม่เคยทำ ไม่เคยลอง แต่ได้แนวคิดจากคำถาม ว่า "อืมม มันน่าจะออกมาสวยไปอีกแบบ"
อ.สันติสุขตอบ ผมได้ความรู้เพิ่มเลยครับ เดี๋ยวว่างๆ จะเอาไปลองดูเหมือนกัน
คุณเฉินหลงตอบ ผมรีบหาโหลดเลยครับ เก็บไว้มั่ง เดี๋ยวศึกษา อิอิ
ขอบคุณทั้งสามท่านครับ

ตามไปเก็บด้วยคนครับ

ขอบคุณครับสำหรับทุกคำตอบและความเห็นครับ

-ของอาจารย์สันติสุข ผมจะลองคิดและฝึกตามครับ(มีตัวอย่างให้หน่อยก็คงจะดี)

-ของคุณjackychaan ผมโหลดมาแกะตามแล้วพอเข้าใจบ้างแล้วครับ

***อีกนิดหนึ่ง****

สำหรับอาจารย์yeadram ผมลุ้นให้ช่วยทำเป็นตัวอย่างให้หน่อยนะครับ

จากตัวอย่างของคุณjackychaan หากนำมาปรับใช้ทำรายงานทางบัญชี

แล้วมียอดยกมาและยอดยกไปได้ คงจะสมบูรณ์มากทีเดียว

ขอบคุณอีกครั้งครับ

โค้ดนั้นคือทั้งหมดที่ให้ไปแล้วครับ เพราะ Report_Page event เกิดเพียง 1 ครั้งสำหรับแต่ละหน้าของรายงาน จะวาด 1 เส้นก็สั่ง .Line 1 ที จะตี 100 เส้นก็สั่ง .Line 100 ทีครับ ตรงไปตรงมา

ไฟล์ที่จะเปิดเก็บอยู่ในพาธเดียวกับแอคเซสไฟล์โปรแกรมนะครับ.

Application.FollowHyperlink CurrentProject.Path & "Bor27.xls"

Dim xfls As String
xfls = "D:\Pay Salary\Bor27New.xls"
DoCmd.TransferSpreadsheet acExport, 8, "Q_ForBor27", xfls, True, ""
FollowHyperlink xfls

ตรงตามที่ต้องการเลยครับ
ขอบคุณอีกครั้ง

ขอบคุณทุกท่านสำหรับความรู้ที่แบ่งปันครับ

วิธีที่ดีที่สุดคือของคุณ jackychaan ครับ
ขอบคุณมากๆ ผมติดตรงนี้มาหลายวันเลย

คุณ jackychaan ครับ ผมรบกวนขอไฟล์ตัวอย่าง ด้วยนะครับ คือพอดีผมกำลังหาอยู่พอดีครับ ส่งเป็นเมล์ให้ผมก็ได้ครับ Piyaphan@Se-ed.com ขอขอบคุณล่วงหน้านะครับ

อยากได้ไฟล์ของคุณ jackychaan ครับ ลิ้งที่ให้ไว้มันหมดอายุแล้ว
ลองเข้าไปเช็คดูใน เมล์ของบอร์ดแล้ว ก็ไม่เห็นครับ หาไม่เจอหรือเปล่าก็ไม่รู้
รบกวนท่านใดมี ช่วยอัพไปไว้ที่ เมล์ของบอร์ดหน่อยได้ไม๊ครับ
รบกวนแจ้งชื่อไฟล์ให้ด้วยก็ดีครับ
ขอบพระคุณครับ

www.gmail.com
userName : accboard
password : accgmail

search ด้วยคำว่า "ตัวอย่างไฟล์ การเพิ่มบรรทัดในหน้ารายงานเพื่อความสวยงามครับ" ในเมล์ของบอร์ดครับ

ไม่ทราบว่าตอนนี้ยังเข้าไปดูไฟล์ได้อยู่หรือไม่คะ