(23-09-16, 05:11 PM)maidinhdan Đã viết: Rãnh rỗi sinh nông nổi: Trước bài viết này đã có 01 bài viết về " Tạo report có chiều cao co dãn theo dữ liệu " và với cách này thì chúng ta phải vẽ line ( vẽ đường vẽ cho nó). Từ những trăn trở đó, tôi cố đã tổng hợp được 1 hàm tự động mà chẳng cần khéo tay hay kẻ từng đoạn để canh chỉnh chiều cao của cái report nửa.


Demo_hàm cho report tự canh đều chiều cao theo chữ 

Công dụng:
- Tìm cột có độ cao cao nhất để lấy nó làm chuẩn để chỉnh các cột còn lại cân bằng theo

Khả năng ứng dụng:
- Ứng dụng để canh độ cao của report

Hạn chế:
- Chưa biết

Code sử dụng:
1. Hàm Điều chỉnh độ cao
2. Hàm tìm chiều cao nhất của 1 dòng record

Cách gọi sử dụng, như Hình minh họa:

*************Chúng ta chỉ việc copy đoạn code sau vào bất kỳ report nào và thay vào đó là txt1, txt2, txt3 ( nhiều cột hơn thì cứ tạo thêm dòng dưới đó)
*************Nhớ là cũng cần import cái modules nửa nhé

Mã PHP:

Private Sub Detail_Print(ByRef intCancel As Integer, ByRef intPrintCount As Integer)
    Dim lm As Long
    lm = Hamchieucaonhat(acDetail)
    
    ' Dien ten cot can can bang do cao o duoi day: txt1, txt2, txt3
        Dieuchinhchieucao Me.txt1, lm, 0, 0, 0, 0, 0, vbRed
        Dieuchinhchieucao Me.txt2, lm, 0, 0, 0, 0, 0, vbGreen
        Dieuchinhchieucao Me.txt3, lm, 0, 0, 0, 0, 0, vbBlue
End Sub


Private Function Hamchieucaonhat(ByVal intSection As Integer) As Long
    Dim lngHeight  As Long
    Dim ctlControl As Control
    For Each ctlControl In Me.Section(intSection).Controls
        If ctlControl.ControlType = acTextBox Then
            If ctlControl.Height > lngHeight Then
                lngHeight = ctlControl.Height
            End If
        End If
    Next ctlControl
    Hamchieucaonhat = lngHeight
End Function 


Demo 15phút nửa post lên. ( đã đính kèm xong)

Vui lòng để lại Email để nhận pass VBA.

phungminhluan@gmail.com, cho mình xin pass vba để nghiên cứu với

(28-03-17, 01:29 PM)phungminhluan Đã viết: phungminhluan@gmail.com, cho mình xin pass vba để nghiên cứu với

Đã gửi.

Lưu ý: nếu gặp lỗi dòng đầu tiên không hiện hết chữ thì chọn 3 Textbox đó và đi đến Properties/ dòng Back Style: Sửa chữ Solid thành Transparent
 
Thân mến!

Nguyentrungtoan0288@gmail.com. Cho minh xin pass

(07-05-17, 04:22 PM)mrtoanbin Đã viết: Nguyentrungtoan0288@gmail.com. Cho minh xin pass

(07-05-17, 04:22 PM)minhnhat Đã viết: ducnhat2010@gmail.com, cho mình xin pass vba để nghiên cứu với hay gửi cho mình bản không có pass. Thanks

Đã gửi. Nhớ đọc Lưu ý trong Email

(23-09-16, 05:11 PM)maidinhdan Đã viết: Rãnh rỗi sinh nông nổi: Trước bài viết này đã có 01 bài viết về " Tạo report có chiều cao co dãn theo dữ liệu " và với cách này thì chúng ta phải vẽ line ( vẽ đường vẽ cho nó). Từ những trăn trở đó, tôi cố đã tổng hợp được 1 hàm tự động mà chẳng cần khéo tay hay kẻ từng đoạn để canh chỉnh chiều cao của cái report nửa.


Demo_hàm cho report tự canh đều chiều cao theo chữ 

Công dụng:
- Tìm cột có độ cao cao nhất để lấy nó làm chuẩn để chỉnh các cột còn lại cân bằng theo

Khả năng ứng dụng:
- Ứng dụng để canh độ cao của report

Hạn chế:
- Chưa biết

Code sử dụng:
1. Hàm Điều chỉnh độ cao
2. Hàm tìm chiều cao nhất của 1 dòng record

Cách gọi sử dụng, như Hình minh họa:

*************Chúng ta chỉ việc copy đoạn code sau vào bất kỳ report nào và thay vào đó là txt1, txt2, txt3 ( nhiều cột hơn thì cứ tạo thêm dòng dưới đó)
*************Nhớ là cũng cần import cái modules nửa nhé

Mã PHP:

Private Sub Detail_Print(ByRef intCancel As Integer, ByRef intPrintCount As Integer)
    Dim lm As Long
    lm = Hamchieucaonhat(acDetail)
    
    ' Dien ten cot can can bang do cao o duoi day: txt1, txt2, txt3
        Dieuchinhchieucao Me.txt1, lm, 0, 0, 0, 0, 0, vbRed
        Dieuchinhchieucao Me.txt2, lm, 0, 0, 0, 0, 0, vbGreen
        Dieuchinhchieucao Me.txt3, lm, 0, 0, 0, 0, 0, vbBlue
End Sub


Private Function Hamchieucaonhat(ByVal intSection As Integer) As Long
    Dim lngHeight  As Long
    Dim ctlControl As Control
    For Each ctlControl In Me.Section(intSection).Controls
        If ctlControl.ControlType = acTextBox Then
            If ctlControl.Height > lngHeight Then
                lngHeight = ctlControl.Height
            End If
        End If
    Next ctlControl
    Hamchieucaonhat = lngHeight
End Function 


Lưu ý: nếu gặp lỗi dòng đầu tiên không hiện hết chữ thì chọn 3 Textbox đó và đi đến Properties/ dòng Back Style: Sửa chữ Solid thành Transparent
 
Thân mến!

Vui lòng để lại Email để nhận file không khóa pass VBA.

 Cho Pass với nhà: nguyentrungtoan0288@gmail.com
Cảm ơn nhiều!

(27-06-17, 10:36 AM)mrtoanbin Đã viết:  Cho Pass với nhà: nguyentrungtoan0288@gmail.com
Cảm ơn nhiều!

Đã gửi.
Ghi chú nếu gặp lỗi dòng đầu tiên không hiện hết
chữ thì chọn 3 Textbox đó và đi đến Properties/ dòng Back Style: Sửa chữ Solid thành Transparent

Gửi giúp minh vào mail mickeynguyen198@gmail.com nha

Dân cho hỏi hàm này mình muốn gạch chân theo kiểu 3 chấm chứ ko phỉ 1 đường thì chỉnh code chổ nào vậy Dân?

(27-09-17, 04:58 PM)tieu_ngao Đã viết: Dân cho hỏi hàm này mình muốn gạch chân theo kiểu 3 chấm chứ ko phỉ 1 đường thì chỉnh code chổ nào vậy Dân?

Chọn Properties trên dòng kẻ đó, đi đến thẻ Format, tìm dòng Border style chọn Dots.

Cho mình xin file tham khảo với Dahota@gmail. Thank...