mainhutlong.anlong@gmail.com

cho mình xin code với nhé bạn ơi, đang cần cái này, cảm ơn trước nha!

em cũng đang cần vấn đề này. anh maidinhdan có gì cho em xin pass gửi vào mail: minhhvm94@gmail.com

nguyen.huusang.ct@gmail.com
cho mình xin code với nhé bạn ơi, đang cần cái này, cảm ơn trước nha!

(23-09-16, 05:11 PM)maidinhdan Đã viết: Vui lòng để lại Email để nhận file không khóa pass VBA.

Bác cho em xin pass với ạ. annguyen9124@gmail.com

Đã gửi 4 email trên.

Bác maidinhdan cho e hỏi là mình có thể tải cái report ra thành file excel mà dữ nguyên định dạng như report mình đã tạo không ạ?

Bác cho em xin pass với ạ. trungpkv@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.

Cho mình xin pass VBA với. mail: longkd_bvct@yahoo.com.vn

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.

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