| 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 |
Duyệt qua listbox, dòng nào được select thì active sheet đó. In từ 1 to 1. Bác viết được cập nhật rồi thì cái in này cũng đơn giản mà
Thực tế là mình cũng xem các anh chị hướng dẫn thôi, nhưng do thấy chưa phù hợp. sáng giờ cứ thử mãi mà chưa được mong bạn xem chỉ giúp.
Thử code này xem đúng ý anh không?
Sub InSheet()
Dim i&
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)).PrintOut 1, 1
End If
Next
End With
Application.ScreenUpdating = 1
Application.DisplayAlerts = 1
End SubHay quá.
Vậy thì anh thêm đoạn code hiển thị trước đoạn printout là được
Thuan giúp cho hoàn chỉnh code với ( có video hướng dẫn nào không cho minh xin để học thêm với).
Xin lỗi. Em không còn ngồi máy. Chờ thành viên khác giúp coi sao. Còn không em xin hỗ trợ anh sau chứ không phải lúc này
Ôi, không sao. Cảm ơn Thuận rất nhiều, khi nao rảnh Xem giúp mình với.
Anh cứ mạnh dạn viết theo cách anh hiểu đi. Lỡ có sai. Mọi người sẽ góp ý cho anh à
Vậy có khả năng là cương quyết chờ chứ nhất định không tự mày mò viết thử mất rồi.
Dạ em mày mò, tìm trên dien dan cũng nhiều rồi mà chẳn được anh ạ. Anh giup em nhé
Hoặc anh chỉ em cách thực hiện cũng được ạ
Sub InSheet()
Dim i&
Application.ScreenUpdating = 0
Application.DisplayAlerts = 0
With Sheets("Tat ca sheet").cacsheet
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
[B]Sheets(.List(i)).PrintPreview[/B]
Sheets(.List(i)).PrintOut 1, 1
End If
Next
End With
Application.ScreenUpdating = 1
Application.DisplayAlerts = 1
End Sub
Chắc ý của anh là như thế này? Em chỉ thêm vào code như anh BuiQuangThuan gợi ý.
Sub InSheet()
Dim i&
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
Sheets(.List(i)).PrintOut 1, 1
End If
Next
End With
Application.ScreenUpdating = 1
Application.DisplayAlerts = 1
End Sub[Anh thử lại xem sao.
Sub indulieu()
Nếu có lấy. Thì cũng phải set trước khi in chứ.sao lại set sau khi in thì còn gì nữa
Hihi. cũng chẵn được.
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.
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.
Kết quả ra chuẩn là được rồi
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
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
