สอบถามวิธีเพิ่มบรรทัดว่างให้เต็มหน้าใบสรุปวางบิล


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

26 ส.ค. 62 , 15:53:48
อ่าน 1584 ครั้ง

Teeyai

  • สมาชิกไท.Access
  • กระทู้: 22

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

ผมได้ทำ rptSumClaim เพื่อรายงานใบสรุปวางบิลออกมาเป็นหน้าตาดังข้างล่าง





สังเกตว่าแต่ละรายงานที่แสดงออกมาขึ้นอยู่กับจำนวน Record ไม่เท่ากัน แล้วแต่ที่เราบันทึกไว้ในกรุ๊ปนั้น เวลาพิมพ์ใบสรุปวางบิลในแต่ละชุด มันจะออกมาไม่เต็มหน้ากระดาษ ถ้ามีรายการลำดับเยอะ ๆ มันก็จะเกือบเต็มหน้า แต่ถ้ามีรายการน้อย ๆ มันก็จะไม่ถึงครึ่งหน้าด้วยซ้ำไป ผมจึงอยากให้มันพิมพ์บรรทัดเปล่าเพิ่มขึ้นไปอีกให้เต็มหน้าใบสรุปวางบิล โดยอาจจะลิมิตไว้ที่ 20 รายการ ไม่ทราบว่าต้องดำเนินการอย่างไรบ้างครับ
.....ประมาณ ๆ รูปข้างล่างแบบนี้ครับ



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

 

26 ส.ค. 62 , 22:13:23
ตอบกลับ #1

OddyWriter

กระทู้นี้น่าจะช่วยได้ครับ

https://www.thai-access.com/index.php?topic=243.msg1060#msg1060
รับจ้างทำฐานข้อมูล สอนวางระบบฐานข้อมูล Excel/ Access/ VBA Excel/ VBA Access/ SQL Server/ Database Design
แม้กระทั่งดูดวง ก็ติดต่อได้นะครับ
 
โพสต์นี้ได้รับคำขอบคุณจาก: Teeyai

27 ส.ค. 62 , 15:37:12
ตอบกลับ #2

Teeyai

  • สมาชิกไท.Access
  • กระทู้: 22

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

ขอบคุณมาก ๆ เลยครับ

 

01 ก.ย. 62 , 10:05:01
ตอบกลับ #3

Teeyai

  • สมาชิกไท.Access
  • กระทู้: 22

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

ทำยังไม่ได้เ่ลยครับ
พอเป็น Group เลยงงเลยครับ
ดูโค้ดจากตัวอื่นงงมากครับ

 

01 ก.ย. 62 , 23:01:12
ตอบกลับ #4

OddyWriter

อย่าเพิ่งคิดเยอะสิครับ ให้ Copy Code ไปแปะในฟอร์มแล้วดูว่าผลเป็นอย่างไร แล้วลองค่อยๆ แก้ตัวเลขทีละนิด

เวลาดูก็เปิดมุมมอง Print Preview ครับ ถึงจะเห็นว่าเป็นอย่างไร

โค้ดของคุณปิ่นณรงค์เขาดีจริงๆ นะ
รับจ้างทำฐานข้อมูล สอนวางระบบฐานข้อมูล Excel/ Access/ VBA Excel/ VBA Access/ SQL Server/ Database Design
แม้กระทั่งดูดวง ก็ติดต่อได้นะครับ
 
โพสต์นี้ได้รับคำขอบคุณจาก: Teeyai

02 ก.ย. 62 , 14:40:52
ตอบกลับ #5

Teeyai

  • สมาชิกไท.Access
  • กระทู้: 22

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

จะลองใหม่ครับ TT

 

02 ก.ย. 62 , 14:59:01
ตอบกลับ #6

PNR

โค้ดนี้แต่เดิมอาจารย์ pizza_p แนะนำไว้ในกระทู้นี้ครับ

https://www.thai-access.com/index.php?topic=220.msg784

ถ้ามีตัวอย่าง ไฟล์ที่ออกรายงานแบบนั้่นได้ ผมก็จะสามารถแก้ไขให้ได้คับ
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: Teeyai

03 ก.ย. 62 , 13:09:32
ตอบกลับ #7

Teeyai

  • สมาชิกไท.Access
  • กระทู้: 22

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

ผมใส่โค้ดลงไปแล้ว และปรับเพื่อให้เส้นพอดีกับช่องตารางที่ทำ
ปัญหาคือเส้นที่เขียนโดยโค้ดนั้น มันทับกับ Sum_Claim_ID Footer อะครับ
ดังรูป


จะต้องปรับอะไรเพิ่มอะครับ ถึงจะได้แบบข้างล่างนี้

« แก้ไขครั้งสุดท้าย: 03 ก.ย. 62 , 13:19:39 โดย Teeyai »

 

03 ก.ย. 62 , 13:18:49
ตอบกลับ #8

Teeyai

  • สมาชิกไท.Access
  • กระทู้: 22

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

ผมลงโค้ดไว้ที่ On Page ดังนี้

Private Sub Report_Page()

Me.ScaleMode = 7         'กำหนดให้หน่วยเป็น cm.
Me.DrawStyle = vbSolid
Me.DrawWidth = 10
Me.Line (0, 9.8)-(0, 20)    cm
Me.Line (1, 9.8)-(1, 20)
Me.Line (2.6, 9.8)-(2.6, 20)
Me.Line (5.5, 9.8)-(5.5, 20)
Me.Line (7.2, 9.8)-(7.2, 20)
Me.Line (9.7, 9.8)-(9.7, 20)
Me.Line (11.6, 9.8)-(11.6, 20)
Me.Line (13.4, 9.8)-(13.4, 20)
Me.Line (15.4, 9.8)-(15.4, 20)
Me.Line (17, 9.8)-(17, 20)
Me.Line (19.1, 9.8)-(19.1, 20)
'Me.Line (0.1, 7.4)-(18.67, 7.4)
'Me.Line (0.1, 8.6)-(18.67, 8.6)
Me.Line (0, 20)-(19.1, 20)
Me.DrawWidth = 1
End Sub

ส่วนใน Design Report เป็นแบบนี้ดังข้างล่างครับ


 

03 ก.ย. 62 , 14:07:57
ตอบกลับ #9

Teeyai

  • สมาชิกไท.Access
  • กระทู้: 22

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

อ้อ! คิดออกแล้วครับ ว่าจะทำไง
ต้องสร้างฟอร์มกรองรีพอร์ทมันก่อน ให้เหลือแค่ 1 page
แล้ว Total>> ให้มาอยู่ใน Page Footer แทน Group Footer
แค่นี้เส้นที่ขึดโดยโค้ด ก็จะไม่ซ้อนกับ Page Footer แล้ว
เพราะ Page Footer จะอยู่ท้ายตารางตลอดอยู่แล้ว

 

07 ก.ย. 62 , 22:07:53
ตอบกลับ #10

kunlek

หากผมมีแค่ 15 บรรทัด  ตรง line ผมต้องเขียนอย่างไรครับ  ขอคำอธิบายพิกัดของ line ครับ ขอบคุณครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5