hoangtuankhanh
Thành viên mới
- Tham gia
- 18/3/08
- Bài viết
- 31
- Được thích
- 1
- Nghề nghiệp
- looking......
Có 2 vấn đề trao đổi với bạn:Chào cả nhà!
Em đang tập tọe sử dụng CommandButon nhưng mà viết làm lệnh nó chỉ in được một Sheet đầu rồi báo lỗi. Các bác xem hộ em rồi chỉ cho em cách khắc phục với nhé.
Cảm ơn mọi người!
Sheets("tên sheet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
If tên sheet <> tên 1 And tên sheet <> tên 2 And ... Then
Private Sub CommandButton1_Click()
Dim Msg, Style, Title
Dim n As Long, i As Long, shName As String
Msg = "Ban co muon In bao cao khong?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Thong bao"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
n = ThisWorkbook.Sheets.Count
For i = 1 To n
shName = Sheets(i).Name
If shName <> "[B]tên 1[/B]" And shName <> "[B]Tên 2[/B]" And shName <> "[B]Tên 3[/B]" Then
Sheets(i).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next
End If
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2