(10-06-20, 10:57 PM)maidinhdan Đã viết:

(10-06-20, 04:03 PM)khải nguyên Đã viết: Chào bác Dân . cho mình bản code viba nhé 
Khainguyen8615@gmail.com
Cảm ơn nhiều . Good Luck !

Send

bác maidinhdan cho e xin voi
yamakashi2003@gmail.com
Cám ơn nhiều

Đã gửi

(11-08-20, 01:24 PM)maidinhdan Đã viết: Đã gửi

bác maidinhdan em co check mail thi bac gửi nhầm demo code an table va query rồi,
Nhờ bác gửi lại demo report canh chiều cao giúp em với
yamakashi2003@gmail.com
Em Cám ơn nhiều

(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.

Dân cho mình xin file này nhé (bản không khóa).
Mail: lamvankhanhcnst@gmail.com
Thank.

Đã gửi 2 email trên

(26-08-20, 03:49 PM)maidinhdan Đã viết: Đã gửi 2 email trên

Mình chưa nhận được. Dân xem lại giùm nhé.

cho mình xin file này nhé (bản không pass).
Mail: vietit87@gmail.com
Thank.

xin pass VBA nhe bạn: tvnqcteamautomailqc@gmail.com

Cho mình xin file không khóa pass VBA với
huan.backan83@gmail.com
Xin cảm ơn

cho mình xin pass vba với
huan.backan83@gmail.com
Xin cảm ơn!