(28-09-19, 07:32 PM)longkd_bvct@yahoo.com.vn Đã viết: Em chào mọi người ạ.
Tình hình là em dang cần Pass trong bài Demo Hàm report tự canh đều chiều cao ( Không kẻ line)) của anh minhdan.
Mình có reply để xin pass mà k đc. nên bạn nào có thì chia xe với mình với ạ.

Mới gửi

mình cũng muốn xin pass này để sử dụng cho báo cáo NXT QLKho, rất mong bác Maidinhdan hỗ trợ, trungpkv@gmail.com, thanks

(01-10-19, 07:46 PM)dotrung Đã viết: mình cũng muốn xin pass này để sử dụng cho báo cáo NXT QLKho, rất mong bác Maidinhdan hỗ trợ, trungpkv@gmail.com, thanks

Đã gửi

(23-09-19, 08:36 AM)longkd_bvct@yahoo.com.vn Đã viết: Cho mình xin pass với bạn ơi. Hoặc ai có pass chia sẻ với mình với. Mail: longkd_bvct@yahoo.com.vn
Mình cám ơn nhiều.

Đã gửi

Cho mình xin vào mail này với: namnv.avc@gmail.com

thanks!

Đã gửi:
phamquangtung1977@yahoo.com,
namnv.avc@gmail.com

Anh ơi cho em xin Pass nhé . Ldcuong90@gmail.com
Thanks anh

cho em xin pass với ạ
mail: Trongduc2323@gmail.com

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

Bác gửi em xin file với,
yamakashi2003@gmail.com
em xin cảm ơn

(27-12-19, 02:18 PM)toidjtjmtoi Đã viết: Anh ơi cho em xin Pass nhé . Ldcuong90@gmail.com
Thanks anh

Anh ơi cho em xin file với ạ

Thanks a