ใน Report ทำอย่างไรให้สามารถตีเส้นบรรทัดให้เต็มหน้
กระทู้เก่าบอร์ด อ.Yeadram

 6,781   15
URL.หัวข้อ / URL
ใน Report ทำอย่างไรให้สามารถตีเส้นบรรทัดให้เต็มหน้

เรียนท่านอาจารย์ yeadram อาจารย์สันติสุข และสมาชิกทุกท่าน
รายละเอียดดังนี้ครับ
1. สมมติในรายงานมีข้อมูลที่จะพิมพ์ออก 43 บรรทัด
2. กำหนดให้พิมพ์ออกหน้าละ 25 บรรทัด
3. ทำอย่างไรให้หน้าที่ 2 ซึ่งมีอยู่เพียง 18 บรรทัด สามารถมีเส้นบรรทัดให้ครบ 25 บรรทัด เหมือนหน้าที่ 1 ได้
4. หรือมีข้อมูลมากกว่านี้ แต่ทำอย่างไรให้หน้าสุดท้ายที่มีข้อมูลไม่ครบ 25 บรรทัด สามารถมีเส้นบรรทัดให้ครบ 25 บรรทัด เหมือนทุก ๆ หน้า (เรื่องของเรื่องคือต้องการความสวยงาม)

15 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R01082
กรณีนี้คุณต้องตีเส้นใน 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
2 @R01084
ขออนุญาตตอบนะครับ ผมพอมีตัวอย่างคล้ายๆ คำถามข้างต้น แต่ผมสร้างด้วยมาโครไว้นานแล้ว ไม่ได้ทำตามวิธีของ อ.สันติสุข โดยผมกำหนดให้พิมพ์รายงานหน้าละ 10 บรรทัด ส่วนที่เกินให้ขึ้นหน้าใหม่พร้อมเพิ่มบรรทัดว่างๆ (เป็นวิธีแบบบ้านๆ แต่พอใช้งานได้ครับ) หากสนใจลอง DL ตาม Link นี้ครับ
http://www.mediafire.com/?gyjj5zwozno
ลองนำไปปรับดูครับ ไม่รู้ว่าตรงตามต้องการหรือเปล่า
3 @R01085
คุณภาณุวัฒน์ ถามมา ผมตอบไม่ได้ครับผมไม่เคยทำ ไม่เคยลอง แต่ได้แนวคิดจากคำถาม ว่า "อืมม มันน่าจะออกมาสวยไปอีกแบบ"
อ.สันติสุขตอบ ผมได้ความรู้เพิ่มเลยครับ เดี๋ยวว่างๆ จะเอาไปลองดูเหมือนกัน
คุณเฉินหลงตอบ ผมรีบหาโหลดเลยครับ เก็บไว้มั่ง เดี๋ยวศึกษา อิอิ
ขอบคุณทั้งสามท่านครับ
4 @R01090
ตามไปเก็บด้วยคนครับ
5 @R01092
ขอบคุณครับสำหรับทุกคำตอบและความเห็นครับ

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

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

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

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

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

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

ขอบคุณอีกครั้งครับ
6 @R01093
โค้ดนั้นคือทั้งหมดที่ให้ไปแล้วครับ เพราะ Report_Page event เกิดเพียง 1 ครั้งสำหรับแต่ละหน้าของรายงาน จะวาด 1 เส้นก็สั่ง .Line 1 ที จะตี 100 เส้นก็สั่ง .Line 100 ทีครับ ตรงไปตรงมา
7 @R01101
ไฟล์ที่จะเปิดเก็บอยู่ในพาธเดียวกับแอคเซสไฟล์โปรแกรมนะครับ.

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

8 @R01102
Dim xfls As String
xfls = "D:\Pay Salary\Bor27New.xls"
DoCmd.TransferSpreadsheet acExport, 8, "Q_ForBor27", xfls, True, ""
FollowHyperlink xfls
9 @R01109
ตรงตามที่ต้องการเลยครับ
ขอบคุณอีกครั้ง
10 @R01128
ขอบคุณทุกท่านสำหรับความรู้ที่แบ่งปันครับ
11 @R01129
วิธีที่ดีที่สุดคือของคุณ jackychaan ครับ
ขอบคุณมากๆ ผมติดตรงนี้มาหลายวันเลย
12 @R01262
คุณ jackychaan ครับ ผมรบกวนขอไฟล์ตัวอย่าง ด้วยนะครับ คือพอดีผมกำลังหาอยู่พอดีครับ ส่งเป็นเมล์ให้ผมก็ได้ครับ Piyaphan@Se-ed.com ขอขอบคุณล่วงหน้านะครับ
13 @R03372
อยากได้ไฟล์ของคุณ jackychaan ครับ ลิ้งที่ให้ไว้มันหมดอายุแล้ว
ลองเข้าไปเช็คดูใน เมล์ของบอร์ดแล้ว ก็ไม่เห็นครับ หาไม่เจอหรือเปล่าก็ไม่รู้
รบกวนท่านใดมี ช่วยอัพไปไว้ที่ เมล์ของบอร์ดหน่อยได้ไม๊ครับ
รบกวนแจ้งชื่อไฟล์ให้ด้วยก็ดีครับ
ขอบพระคุณครับ

www.gmail.com
userName : accboard
password : accgmail
14 @R03381
search ด้วยคำว่า "ตัวอย่างไฟล์ การเพิ่มบรรทัดในหน้ารายงานเพื่อความสวยงามครับ" ในเมล์ของบอร์ดครับ
15 @R22602
ไม่ทราบว่าตอนนี้ยังเข้าไปดูไฟล์ได้อยู่หรือไม่คะ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3269s