Lỗi khi in sheet hàng loạt

[hoangpheo290193]

Chào tất cả các anh chị, cao nhân trong Group.
Em có viết đoạn code này đê in 4 sheet trong file excel của em.
Em có một chút vấn đề nho nhỏ, Em muốn ẩn một số dòng trong Sheet A3 khi chạy in hàng loạt, cụ thể là em muốn khi t=1, một số hàng của sheet A3 sẽ ẩn, còn khi t>1 nó sẽ tự động mở lại , nhưng khi in nó không ẩn được. Các bác chỉ cho em, em thiếu hay sót dòng lệnh nào nữa ạ.Em xin cảm ơn các anh chị trong Group ạ
Đoạn code của em như sau:

Private Sub cmb_inan_Click()
Dim t As Integer
For t = textr3.Text To textr4.Text
Dim s1 As Worksheet
Set s1 = Sheets("A3")
With s1
If t = 1 Then
Range("A8").EntireRow.Hidden = True
Range("A79:A83").EntireRow.Hidden = True
Else: Range("A8").EntireRow.Hidden = False
Range("A79:A83").EntireRow.Hidden = False
End If
End With
Range("U1").Value = t
Sheets("CD").Select
Range("r23:r143").Select
Selection.AutoFilter
ActiveSheet.Range("r23:r143").AutoFilter Field:=1, Criteria1:="1"
Sheets(Array("A1", "A2", "A3", "CD")).Select
ActiveWindow.SelectedSheets.PrintOut
Sheets("A1").Select
Next
End Sub

 

[befaint]

For t = textr3.Text To textr4.Text

For t = val(textr3.Text) To val(textr4.Text)

 

[hoangpheo290193]

For t = val(textr3.Text) To val(textr4.Text)

vâng. Em cảm ơn bác. để em sửa theo ý bác xem sao. Em cảm ơn bác ạ!

Bài đã được tự động gộp: 15/3/21

For t = val(textr3.Text) To val(textr4.Text)

tình hình là nó vẫn không ẩn bác ạ. Em muốn ẩn hàng a79 đến A83 và hàng A8 nhưng nó không ẩn.

 

[befaint]

Range("A8").EntireRow.Hidden = True

Thêm chấm vào:
.Range("A8").EntireRow.Hidden = True

 

[hoangpheo290193]

Thêm chấm vào:
.Range("A8").EntireRow.Hidden = True

vâng, để em thêm thử. Em cảm ơn bác nhé.

 

[hoangpheo290193]

Thêm chấm vào:
.Range("A8").EntireRow.Hidden = True

Em đã thử và thành công. Cảm ơn bác rất nhiều ạ!