Xin code in hàng loạt các lớp và tiêu đề cuối trang (1 người xem)

[minhhangg]

Chào các thành viên GPE như tiêu đề mình muốn in hàng loạt tất cả các lớp, ở cuối trang có tiêu đề ngày tháng năm để người ký danh sách được nhanh. Xin các thành viên giúp đỡ. cảm ơn các bạn đã đọc bài.

 

[Ngoai Thanh]

Chào các thành viên GPE như tiêu đề mình muốn in hàng loạt tất cả các lớp, ở cuối trang có tiêu đề ngày tháng năm để người ký danh sách được nhanh. Xin các thành viên giúp đỡ. cảm ơn các bạn đã đọc bài.

Bạn xem file xem đúng ý bạn không nhé !

 

[minhhangg]

Đúng rồi nhưng cái tiêu đề cuối trang nó nhảy không đúng chổ và nhiều hơn cái gì mà mình mong đợi, bạn xem lại giúp mình nhé

 

[Quang_Hải]

Chào các thành viên GPE như tiêu đề mình muốn in hàng loạt tất cả các lớp, ở cuối trang có tiêu đề ngày tháng năm để người ký danh sách được nhanh. Xin các thành viên giúp đỡ. cảm ơn các bạn đã đọc bài.

Tham khảo cách này xem coi được không. Lâu rồi không thấy hỏi bài tưởng đâu cô giáo đã giỏi VBA rồi chứ.

 

[minhhangg]

Tham khảo cách này xem coi được không. Lâu rồi không thấy hỏi bài tưởng đâu cô giáo đã giỏi VBA rồi chứ.

Em đã chuyển qua EX 2003 code báo lỗi anh Hải ơi.

 

[Quang_Hải]

Em đã chuyển qua EX 2003 code báo lỗi anh Hải ơi.

Hãy thử vô hiệu hoá dòng lệnh .PrintPreview luôn xem coi còn bị lỗi không nhé.
Nếu ổn thì hãy thử cho dòng lệnh .PrintOut hoạt động. Hãy thử với dữ liệu mẫu để kiểm tra kết quả trước khi in thật

 

[minhhangg]

Hãy thử vô hiệu hoá dòng lệnh .PrintPreview luôn xem coi còn bị lỗi không nhé.
Nếu ổn thì hãy thử cho dòng lệnh .PrintOut hoạt động. Hãy thử với dữ liệu mẫu để kiểm tra kết quả trước khi in thật

Sub Inn()Dim Arr(), Res(), dic As Object, item
Dim i As Long, j As Long, k As Long
Set dic = CreateObject("scripting.dictionary")
With Sheets("DSHS")
Arr = .Range("B5", .[B65536].End(3)).Resize(, 34).Value
End With
For i = 1 To UBound(Arr)
dic(Arr(i, 5)) = ""
Next
For Each item In dic.keys
ReDim Res(1 To 1000, 1 To 35)
k = 0
For i = 1 To UBound(Arr)
If Arr(i, 5) = item Then
k = k + 1
Res(k, 1) = k
For j = 1 To 34
Res(k, j + 1) = Arr(i, j)
Next
End If
Next
With Sheets("IN")
.[A6].Resize(k).EntireRow.Insert
.[A6].Resize(k, 35) = Res
.[A6].CurrentRegion.Borders.Value = 1 (Lỗi dòng này)
'.PrintPreview
'.PrintOut
.[A6].Resize(k).EntireRow.Delete
End With
Next
End Sub

Anh xem giúp em lại nhé

 

[Quang_Hải]

Anh xem giúp em lại nhé

Bị lỗi dòng nào thì thử vô hiệu hóa dòng đó xem thế nào.

******************
Các bạn nào có thời gian thì thử file trên xem có lỗi không, trên máy mình thì chạy ầm ầm mới lạ.

 

[Kiều Mạnh]

Bị lỗi dòng nào thì thử vô hiệu hóa dòng đó xem thế nào.

******************
Các bạn nào có thời gian thì thử file trên xem có lỗi không, trên máy mình thì chạy ầm ầm mới lạ.

Em mới thử chạy tốt mà
[video=youtube;maDGHO6SRnY]https://www.youtube.com/watch?v=maDGHO6SRnY&feature=youtu.be[/video]

 

[minhhangg]

File đây các bạn xem giúp mình nhé.