Xin Code để in danh sách lớp trong file chọn lớp (2 người xem)

[Tran Mui]

Xin GPE chỉ giúp cách tạo nhãn để khi nhấn vào sẽ cho in danh sách lớp trong file chọn lớp đính kèm
Xin cám ơn

 

[Tran Mui]

Rất mông được giúp đỡ

 

[nhapmon]

Rất mông được giúp đỡ

quên để ý cái event worksheet change của bạn, tôi làm cái sub này, mai nếu chưa ai làm tôi sẻ kết hợp với code củ của bạn

Sub InDanhSach()
Application.ScreenUpdating = False


For i = 8 To 19
Sheets(2).Select
[a7].Select
Range(Selection, Selection.End(xlDown)).Resize(, 11).ClearContents
Sheets("danhsach_in").Select
[a6].Select
Range(Selection, Selection.End(xlDown)).Resize(, 13).Select
Selection.AutoFilter
With Selection
.AutoFilter Field:=11, Criteria1:=Range("U" & i)
End With
Selection.Copy Destination:=Sheets("chon_lop").[a6]
ExecuteExcel4Macro "PRINT(2,1,1,1,2,,,TRUE,,FALSE)"


Next i
Application.ScreenUpdating = true


End Sub

sory mình quen xoá cái exit sub. bạn xem lại cái lệnh in, vì ghi bằng record macro trên máy mình.

 

[Tran Mui]

Chưa được bạn ạ, xem lại giúp nhé

 

[Quang_Hải]

Xin GPE chỉ giúp cách tạo nhãn để khi nhấn vào sẽ cho in danh sách lớp trong file chọn lớp đính kèm
Xin cám ơn

Không hiểu rõ thôi làm đại hên xui nha.

 

[Tran Mui]

Bạn có thể giúp chọn in từ 1 đến 10 được không
Xin cám ơn

 

[Quang_Hải]

Bạn có thể giúp chọn in từ 1 đến 10 được không
Xin cám ơn

Không hiểu rõ ý bạn. Tạm thời thêm dòng lệnh này vào
k = k + 1
If k > 10 Then Exit For

Sub Create_Print()
Dim data(), i As Long, lop, check, k
check = MsgBox(" Ban Muon In Danh Sach Cac Lop?", vbYesNo)
If check = vbNo Then Exit Sub
data = Sheet1.[K7:K10000].Value
With CreateObject("scripting.dictionary")
   For i = 1 To UBound(data)
      If data(i, 1) <> "" Then
         If Not .exists(data(i, 1)) Then
            .Add data(i, 1), ""
         End If
      End If
   Next
   demsolop = .Count
   For Each lop In .keys
      k = k + 1
      If k > 10 Then Exit For
      Sheet2.[M2].Value = lop
      Sheet2.PrintOut
   Next
End With
End Sub

 

[Tran Mui]

Ý của mình là khi nhấn PRINT sẽ cho in từ 1 đến 10 ( kể từ lớp được chọn)
Sau đó muốn in tiếp thì đặt con trỏ vào lớp kế tiếp để nhấn PRINT
File kèm theo, giúp mình nhé
Xin cám ơn

 

[Quang_Hải]

Ý của mình là khi nhấn PRINT sẽ cho in từ 1 đến 10 ( kể từ lớp được chọn)
Sau đó muốn in tiếp thì đặt con trỏ vào lớp kế tiếp để nhấn PRINT
File kèm theo, giúp mình nhé
Xin cám ơn

Hic, nếu người khác viết code thì chỉ 1 hoặc 2 lần. Mình mà viết thì ít nhất 3 lần mới xài được

 

[Tran Mui]

Mình nhờ Quang HẢi và các bạn giúp tiếp ,
trong hộp List của Q Hải hiện được 2 cột, bạn hướng dẫn mình làm nhé
Mình chưa làm được, xin cám ơn

 

[Tran Mui]

Quang Hải giúp tôi nhé
Mình chờ lâu quá
Xin cám ơn