Shrink to fit ย่อข้อความให้ขนาดพอดีกับ Text box



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

24 ก.ค. 61 , 18:15:50
อ่าน 634 ครั้ง

sama

รบกวนสอบถามครับ พอดีผมทำรายงานแล้วข้อความมันยาวล้น Text box ถ้าต้องการ Format ย่อข้อความให้ขนาดพอดีกับ Text box เหมือนคำสั่ง Shrink to fit ใน Excel สามารถทำได้หรือเปล่าครับ

 

24 ก.ค. 61 , 21:32:32
ตอบกลับ #1

ปิ่นณรงค์

: Shrink to fit ย่อข้อความให้ขนาดพอดีกับ Text box
« ตอบกลับ #1 เมื่อ: 24 ก.ค. 61 , 21:32:32 »
ที่ตัวรายงาน ส่วนของ Detail  ตรง Event On Print ใส่โค้ดนี้เข้าไปครับ
โค๊ด: [Select]
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim ctl As Control, strText As Variant, strName As String
    Me.ScaleMode = 1
    For Each ctl In Me.Detail.Controls
        If ctl.ControlType = acTextBox Then
       
        strName = ctl.Name
            If Nz(ctl.Tag, "") = "" Then
                ctl.Tag = ctl.FontSize
            End If
            ctl.FontSize = ctl.Tag
            Me.FontSize = ctl.FontSize
            strText = ctl.Value
           If Len(strText) > 0 Then
            Do Until TextWidth(strText) < ctl.Width
                ctl.FontSize = ctl.FontSize - 1
                Me.FontSize = ctl.FontSize
            Loop
            Do Until TextHeight(strText) < ctl.Height - (ctl.Height * 0.26)
                ctl.FontSize = ctl.FontSize - 1
                Me.FontSize = ctl.FontSize
            Loop
        End If
        End If
       
    Next ctl
End Sub

ผลที่ได้
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

25 ก.ค. 61 , 08:33:13
ตอบกลับ #2

sama

: Shrink to fit ย่อข้อความให้ขนาดพอดีกับ Text box
« ตอบกลับ #2 เมื่อ: 25 ก.ค. 61 , 08:33:13 »
หา Event On Print ไม่เจอครับ


 

25 ก.ค. 61 , 08:38:48
ตอบกลับ #3

sama

: Shrink to fit ย่อข้อความให้ขนาดพอดีกับ Text box
« ตอบกลับ #3 เมื่อ: 25 ก.ค. 61 , 08:38:48 »
เจอแล้วครับแต่มันขึ้น Error แบบนี้ครับ


 

25 ก.ค. 61 , 08:44:21
ตอบกลับ #4

ปิ่นณรงค์

: Shrink to fit ย่อข้อความให้ขนาดพอดีกับ Text box
« ตอบกลับ #4 เมื่อ: 25 ก.ค. 61 , 08:44:21 »
ลองกดจากตัวอย่าง สามารถใช้งานได้ปกติไหมครับ

เพิ่ม โค้ดตรงส่วน Detail ของรายงานตรง On Print
:love: :grin:
 

25 ก.ค. 61 , 08:54:03
ตอบกลับ #5

sama

: Shrink to fit ย่อข้อความให้ขนาดพอดีกับ Text box
« ตอบกลับ #5 เมื่อ: 25 ก.ค. 61 , 08:54:03 »
ยังขึ้น Error เหมือนเดิมครับ


 

25 ก.ค. 61 , 08:55:58
ตอบกลับ #6

sama

: Shrink to fit ย่อข้อความให้ขนาดพอดีกับ Text box
« ตอบกลับ #6 เมื่อ: 25 ก.ค. 61 , 08:55:58 »

 
โพสต์นี้ได้รับคำขอบคุณจาก: Psong UN

25 ก.ค. 61 , 09:00:25
ตอบกลับ #7

ปิ่นณรงค์

: Shrink to fit ย่อข้อความให้ขนาดพอดีกับ Text box
« ตอบกลับ #7 เมื่อ: 25 ก.ค. 61 , 09:00:25 »

ตั้งค่า ขนาดฟ้อนของ Textbox ไว้ก่อนเอาทีกำลังดีกับ textbox
ถ้ายังไม่ได้ ลองส่งตัวอย่างมาผมดูให้
:love: :grin:
 

25 ก.ค. 61 , 09:02:43
ตอบกลับ #8

sama

: Shrink to fit ย่อข้อความให้ขนาดพอดีกับ Text box
« ตอบกลับ #8 เมื่อ: 25 ก.ค. 61 , 09:02:43 »
ส่งตัวอย่างไปทางใหนครับ

 

25 ก.ค. 61 , 09:12:53
ตอบกลับ #9

sama

: Shrink to fit ย่อข้อความให้ขนาดพอดีกับ Text box
« ตอบกลับ #9 เมื่อ: 25 ก.ค. 61 , 09:12:53 »
แนบเป็นไฟล์ zip มาแล้วครับ

 

25 ก.ค. 61 , 09:45:48
ตอบกลับ #10

sama

: Shrink to fit ย่อข้อความให้ขนาดพอดีกับ Text box
« ตอบกลับ #10 เมื่อ: 25 ก.ค. 61 , 09:45:48 »
ได้แล้วครับ น่าจะเป็นเรื่องของการปรับ front ขอบคุณมากครับ

 


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