In các trang có dữ liệu trong một vùng dữ liệu nhất định (1 người xem)

[baquang1984]

Anh Ba Tê và các thành viên trến diễn đàn giúp em chương trình này với ạ
- Đây là chương trình mà em áp dụng Code của anh Ba Tê và anh Let'GâuGâu để làm chương trình này, ở Buttom IN BIỂU là Code do anh Ba Tê viết, nên em chưa hiểu và không thể sử được theo ý mình ở code này, vấn đề em gặp phải là khi in theo các số thứ tự thì nó chỉ in được 1 hoặc 2 trang nhưng trong dữ liệu lại có những số thứ tự có 3 - 4, 5, .. trang thì lại không in được những trang đó vây nhờ các anh sử giúp là làm thế nào để có thể in được các trang có dữ liệu trong vùng dữ liệu từ cột A đến cột H
Mong được sự giúp đỡ của các anh và các thành viên trên diễn đàn
EM cảm ơn!
Xin lỗi các thành viên trên diễn đàn vì em đã post bài này ở trang Topic này Tìm 5 loài cây có số lần xuất hiện nhiều nhất trong danh sách, nhưng ý muốn hỏi và tiêu đề không được giống nhau nên em tạo Topic mới để hỏi mong các thành viên thông cả!

 

[baquang1984]

Anh Ba Tê và các thành viên trến diễn đàn giúp em chương trình này với ạ
- Đây là chương trình mà em áp dụng Code của anh Ba Tê và anh Let'GâuGâu để làm chương trình này, ở Buttom IN BIỂU là Code do anh Ba Tê viết, nên em chưa hiểu và không thể sử được theo ý mình ở code này, vấn đề em gặp phải là khi in theo các số thứ tự thì nó chỉ in được 1 hoặc 2 trang nhưng trong dữ liệu lại có những số thứ tự có 3 - 4, 5, .. trang thì lại không in được những trang đó vây nhờ các anh sử giúp là làm thế nào để có thể in được các trang có dữ liệu trong vùng dữ liệu từ cột A đến cột H
Mong được sự giúp đỡ của các anh và các thành viên trên diễn đàn
EM cảm ơn!
Xin lỗi các thành viên trên diễn đàn vì em đã post bài này ở trang Topic này Tìm 5 loài cây có số lần xuất hiện nhiều nhất trong danh sách, nhưng ý muốn hỏi và tiêu đề không được giống nhau nên em tạo Topic mới để hỏi mong các thành viên thông cả!

Như em đã giải thích ở trên mong được các thầy cô, các anh chị, các bạn trên diễn đàn giúp đỡ
Dưới đây là Code VBA của UserForm "UForm1" để thực hiện lệnh in trong Buttom "IN BIỂU"

Private Sub Cmd1_Click()
Application.ScreenUpdating = False
Dim TuSTT As Variant, DenSTT As Variant, I As Long
TuSTT = TBox1.Text
DenSTT = TBox2.Text
If TuSTT = "" Then
    MsgBox "Chua nhap so trang bat dau IN!", , "Kim Hoang"
    TBox1.SetFocus
    Exit Sub
ElseIf DenSTT = "" Then
    DenSTT = TuSTT
End If
For I = TuSTT To DenSTT
    [J2].Value = I
    [COLOR=#00ff00][B]ActiveSheet.PrintOut From:=1, To:=1, Copies:=1 [/B][/COLOR]
Next I
Application.ScreenUpdating = True
Unload Me
End Sub

ActiveSheet.PrintOut From:=1, To:=1, Copies:=1 "Đây là dòng code để thực hiện lệnh cho phép in một trang" vây muốn thực hiện in các hàng có dữ liệu trong vùng từ Cột [A1:H65536] Sheets"Bieu_05" em không biết sửa thế nào
Mong được sự giúp đỡ ạ!

 

[baquang1984]

Mong được các thầy cô, các anh chị và các bạn trên diễn đàn giải quyết giúp chương trình cho em ạ
Em cảm ơn mọi người nhiều ạ!

 

[baquang1984]

Mong được các thầy cô, các anh chị và các bạn trên diễn đàn giải quyết giúp chương trình cho em ạ
Em cảm ơn mọi người nhiều ạ!

Anh Ba và mọi người trên diễn đàn giúp em với hixxx
Mong đước sự giúp đỡ của các thành viên diễn đàn. Nếu em giải thích chưa rõ chỗ nào mong được mọi người góp ý để vấn đề của em được giải quyết.
Em cảm ơn mọi người nhiều