Chọn vùng in tùy ý tại các sheet

[phanngoctrai1981]

Kính gửi: các Anh chị xem giúp em với

Yêu cầu:
Chỉ in nội dung o trang 1 tại các sheet
Nếu không chọn sheets nào thì end xit sub
Kinh mong các Anh/chị xem giúp

Em có file đính kèm

 

[phanngoctrai1981]

Rồi nó còn lỗi nữa không ạ

Không à. rất ok rồi. nhưng ý mình muốn làm thêm tý cho nó hay hơn.

Bài đã được tự động gộp: 11/8/23

Không à. rất ok rồi. nhưng ý mình muốn làm thêm tý cho nó hay hơn.

Mà sao lạ ghê, các file hoac sheet khac thì minh tinh dòng cuối, đúng mà sao ơ đây lại không được không biết nữa.

 

[BuiQuangThuan]

rất ok rồi

Kết quả ra chuẩn là được rồi

 

[phanngoctrai1981]

Rồi nó còn lỗi nữa không ạ

Hiện không bị lỗi nữa, nhưng mình thêm lấy dòng cuối của sheest in mà sao mãi không được
Kinh mong mọi người chỉ giúp.

Sub indulieu()
Dim i&
Dim Lr As Long
Application.ScreenUpdating = 0
Application.DisplayAlerts = 0
With Sheets("Tat ca sheet").cacsheet
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Sheets(.List(i)).PrintPreview ' Lenh hien de xem truoc trang in
Dinhdangtrangin
Sheets(.List(i)).PrintOut 1, 1 ' Lenh chi in trang 1 cua sheet duoc chon
Lr = Sheets(.List(i)).Range("A" & Rows.Count).End(xlUp).Row
PrintArea = "A1:I" & Lr
End If
Next
End With
Application.ScreenUpdating = 1
Application.DisplayAlerts = 1
End Sub

 

[Maika8008]

Hiện không bị lỗi nữa, nhưng mình thêm lấy dòng cuối của sheest in mà sao mãi không được
Kinh mong mọi người chỉ giúp.

Sub indulieu()
Dim i&
Dim Lr As Long
Application.ScreenUpdating = 0
Application.DisplayAlerts = 0
With Sheets("Tat ca sheet").cacsheet
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Sheets(.List(i)).PrintPreview ' Lenh hien de xem truoc trang in
Dinhdangtrangin
Sheets(.List(i)).PrintOut 1, 1 ' Lenh chi in trang 1 cua sheet duoc chon
Lr = Sheets(.List(i)).Range("A" & Rows.Count).End(xlUp).Row
PrintArea = "A1:I" & Lr
End If
Next
End With
Application.ScreenUpdating = 1
Application.DisplayAlerts = 1
End Sub

Dòng này là gì: With Sheets("Tat ca sheet").cacsheet, để rồi sinh cái .List(i) thành cái gì nhỉ?

 

[phanngoctrai1981]

Rồi nó còn lỗi nữa không ạ

Haha. tạm thời là chưa nghĩ ra. Thuận giúp được thì xem giùm đi. Cảm ơn nhiều

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

Haha. tạm thời là chưa nghĩ ra. Thuận giúp được thì xem giùm đi. Cảm ơn nhiều

Có khả năng giúp người khác là niềm vui, rất mong Các ANh chỉ thêm ah