ปรับองศา font report
กระทู้เก่าบอร์ด อ.Yeadram

 2,685   7
URL.หัวข้อ / URL
ปรับองศา font report

หนูอยากทำ font ในหัวรายงานให้เอียง 45 degree ต้องเขียนคำสั่งอย่างไรค่ะ
มันสามารถทำได้หรือป่าว?

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

1 @R20301


อยากให้เอียงประมาณนี้ค่ะ
2 @R20308
โปรแกรม MS Access จนถึงเวอร์ชั่นทุกวันนี้ยังไม่มีคอนโทรลมาตรฐานตัวไหนทำได้นะครับ
แต่ที่เค้าหาวิธีทำกันมี 2 แบบ หลักๆ คือ
1. ใช้คอนโทรล Image ทำ โดยเขียน Class Module (ถ้าใช้ในการพิมพ์มันจะได้ตัวอักษรที่ไม่คม เพราะเป็น bitmap จึงขอข้ามไปก่อน)
2. ใช้ ActiveX ที่ชื่อ Rotate Lable โหลดแล้วมาติดตั้งในเครื่องครับ โหลดที่นี่
- เมื่อติดตั้งเสร็จ ก็ให้เปิดไฟล์ MS Access > มุมมองออกแบบ ในเมนู Design > ActiveX control คุณก็จะได้ RotateLable ที่มี Property สามารถหมุนตัวอักษรได้


- ส่วนถ้าอยากนำไปไว้พื้นที่หัวกระดาษหรือท้ายกระดาษ ให้ใช้การคลิ๊กขวา Cut และ Paste
- ส่วนของการกำหนดค่าต่างๆ จะอยู่ใน Property > Other ลองกำหนดดูครับ

ปล. หากใช้ MS Access เป็น 64bit อาจใช้ไม่ได้นะครับ ควรใช้ Ms Access เป็น 32bit เท่านั้น
3 @R20315
ขอบคุณมากๆ เลยค่ะพี่ TTT มีข้อซักถามว่าพืนด้านหลังที่เป็นสีขาวเรากำหนดให้ เป็นแบบโปร่งได้หรือปล่าวค่ะ พอดีหนูมีรูปบนหัวรายงานพื้นสีขาวมันทับอ่ะ
4 @R20318
ปรับสีพื้นหลังได้ครับ แต่ไม่รองรับ Transparent


หรือเขียนเป็นโค๊ด vb ไว้ที่ Event > Onload ได้ประมาณนี้ครับ
Me.RotateLabel.BackColor = 15195103
หรือใช้ RGB()
Me.RotateLabel.BackColor = RGB(255, 0, 0)
หรือให้สีเหมือนสีพืันหลังของ PageFooter
Me.RotateLabel.BackColor = Me.PageFooterSection.BackColor

อะไรประมาณนี้ครบ

5 @R20319
อีกอย่าง ถ้าจะใช้ภาษาไทย ต้องเลือกฟอนต์ที่เป็น UPC เท่านั้นครับ เพราะ UPC จะเป็นฟอนต์ที่ใช้ ASCII ไม่ได้เป็น Unicode
6 @R20323
ขอบคุณค่ะ สรุปไม่รองรับพื้นหลังแบบโปร่งใส ขอถามอีกนิส นะค่ะ แล้วใน vb มี code rotate แบบง่ายๆ ไหมค่ะ?
7 @R20324
โค๊ดหากต้องการเขียนใน vba ก็จะมีประมาณนี้ครับ

Me.RotateLabel.Escapement = 10             ' กำหนดองศาตัวอักษร
Me.RotateLabel.HAlignment = 0              ' กำหนดชิดขอบแนวนอน 0 = ซ้าย, 1 = ตรงกลาง, 2 = ขวา
Me.RotateLabel.VAlignment = 1              ' กำหนดชิดขอบแนวตั้ง 0 = บน, 1 = ตรงกลาง, 2 = ล่าง
Me.RotateLabel.BackColor = RGB(0, 0, 255) ' กำหนดสีพื้นหลัง (ไม่สามารถกำหนดเป็น Transparent)
Me.RotateLabel.ForeColor = RGB(255, 0, 0) ' กำหนดสีของอักษร
Me.RotateLabel.Font = "CordiaUPC"          ' กำหนดชื่อฟอนต์ โดยหากใช้ภาษาไทย ต้องเลือกฟอนต์ที่เป็น UPC เท่านั้น
Me.RotateLabel.Font.Size = 10              ' กำหนดขนาดฟอนต์
Me.RotateLabel.Font.Bold = True            ' กำหนดอักษรตัวหนา
Me.RotateLabel.Font.Italic = True          ' กำหนดอักษรตัวเอียง
Me.RotateLabel.Font.Underline = True       ' กำหนดเส้นใต้อักษร (หากกำหนดองศาหมุน บางองศาอาจไม่แสดงเส้นใต้ แต่หากพิมพ์จะขึ้นเส้นใต้ให้เห็น)
Me.RotateLabel.Caption = "ID: " & Me.ID    ' กำหนดข้อความที่ต้องการแสดง

ประมาณนี้ครับ
ยังไงผมทำไฟล์ตัวอย่างง่ายๆ ลองโหลดไปเปิดดูครับ
ไฟล์ตัวอย่าง
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2616s