| 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 ạ
