Tùy chọn
Demo Hàm report tự canh đều chiều cao ( Không kẻ line))
- Demo Hàm report tự canh đều chiều cao ( Không kẻ line))
-
RE: Demo hàm cho report tự canh đều chiều cao
hoanbhxhls > 26-09-16, 04:42 PM
(26-09-16, 01:55 AM)toancvp Đã viết: Bác ơi em làm không được rồi, em không biết cho vào event nào của form cho nó phù hợp được cả. Bác xem qua file này giúp em với ạ.
https://drive.google.com/open?id=0B5rfqy...kI1U0NfX0k
cho mình xin pass nhé
email:hoanbhxhls@gmail.com
cám ơn bạn -
RE: Demo hàm cho report tự canh đều chiều cao
maidinhdan > 26-09-16, 05:00 PM
(26-09-16, 04:42 PM)hoanbhxhls Đã viết:
(26-09-16, 01:55 AM)toancvp Đã viết: Bác ơi em làm không được rồi, em không biết cho vào event nào của form cho nó phù hợp được cả. Bác xem qua file này giúp em với ạ.
https://drive.google.com/open?id=0B5rfqy...kI1U0NfX0k
cho mình xin pass nhé
email:hoanbhxhls@gmail.com
cám ơn bạn
Đã gửi -
RE: Demo hàm cho report tự canh đều chiều cao
hoanbhxhls > 26-09-16, 05:26 PM
(26-09-16, 04:42 PM)hoanbhxhls Đã viết:
(26-09-16, 01:55 AM)toancvp Đã viết: Bác ơi em làm không được rồi, em không biết cho vào event nào của form cho nó phù hợp được cả. Bác xem qua file này giúp em với ạ.
https://drive.google.com/open?id=0B5rfqy...kI1U0NfX0k
cho mình xin pass nhé
email:hoanbhxhls@gmail.com
cám ơn bạn
pass là chuỗi '(\/) (°,,°) (\ۣۜH๖ۣۜE๖ۣۜN๖ۣۜD๖ۣۜA๖ۣۜN๖ۣۜ2๖ۣۜ0๖ۣۜ1๖ۣۜ5๖ۣۜ)╚(•⌂•)╝(-’๏_๏’-)'
nên không mở được -
RE: Demo hàm cho report tự canh đều chiều cao
nguyenhungcuong > 27-09-16, 10:18 AM
Bạn cho mình xin pass vba. email: hungcuong113vn@gmail.com. Cảm ơn bạn nhiều. -
RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))
thanh.thkt > 28-09-16, 02:49 PM
Nhờ Bác maidinhdan cho mình xin pass vba với : thanh0826@gmail.com
Cảm ơn nhiều. -
RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))
vulhu06 > 29-09-16, 10:34 AM
(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:
![[Hình: modHamtimchieucao.png]](http://www.upsieutoc.com/images/2016/09/23/modHamtimchieucao.png)
*************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.
Vui lòng cho mình xin Pass VBA, mail: vunguyenhoanglhu@gmail.com. Thanks -
RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))
tronghieu9792 > 29-09-16, 11:00 AM
-
RE: Demo Hàm report tự canh đều chiều cao ( Không kẻ line))
btnnhut > 29-09-16, 02:35 PM
ban oi cho xin pass
mail: btnnhut@gmail.com
Thank you.