Code VBA in file excel

[giangcoilove]

Thưa anh/chị

Hiện tại em có 1 file excel có link công thức nhiều sheet, và em muốn in thông tin từng người theo chọn lọc
Có bạn chỉ em dòng code in có điều kiện chọn lựa, nhưng sau khi past code này vào nó sẽ chạy ra ngay. Em muốn thêm dòng code là view ra xem trước khi in

Anh/chị giúp em, cho em xin dòng code ấy ạ

em xin cám ơn

Sub lamlai()
Dim arr, i As Long, a As Long, dk As String, dks As String, dks1 As String, dic As Object, lr As Long
Set dic = CreateObject("scripting.dictionary")
dks = "Hoàn thu" & ChrW(7871) & " TNCN"
dks1 = "Thu thêm thu" & ChrW(7871) & " TNCN"
With Sheets("QT all 1")
lr = .Range("A" & Rows.Count).End(xlUp).Row
arr = .Range("A3:Y" & lr).Value
ReDim kq(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
dk = arr(i, 25)
If dk = dks Or dk = dks1 Then
If Not dic.exists(arr(i, 1)) Then
a = a + 1
dic.Add arr(i, 1), a
kq(a, 1) = arr(i, 1)
End If
End If
Next i
End With
With Sheets("Chitiet-Doituong")
For i = 1 To a
.Range("c8").Value = kq(i, 1)
'.PrintPreview
.PrintOut
Next i
End With
End Sub

 

[giaiphap]

Thưa anh/chị

Hiện tại em có 1 file excel có link công thức nhiều sheet, và em muốn in thông tin từng người theo chọn lọc
Có bạn chỉ em dòng code in có điều kiện chọn lựa, nhưng sau khi past code này vào nó sẽ chạy ra ngay. Em muốn thêm dòng code là view ra xem trước khi in

Anh/chị giúp em, cho em xin dòng code ấy ạ

em xin cám ơn

Sub lamlai()
Dim arr, i As Long, a As Long, dk As String, dks As String, dks1 As String, dic As Object, lr As Long
Set dic = CreateObject("scripting.dictionary")
dks = "Hoàn thu" & ChrW(7871) & " TNCN"
dks1 = "Thu thêm thu" & ChrW(7871) & " TNCN"
With Sheets("QT all 1")
lr = .Range("A" & Rows.Count).End(xlUp).Row
arr = .Range("A3:Y" & lr).Value
ReDim kq(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
dk = arr(i, 25)
If dk = dks Or dk = dks1 Then
If Not dic.exists(arr(i, 1)) Then
a = a + 1
dic.Add arr(i, 1), a
kq(a, 1) = arr(i, 1)
End If
End If
Next i
End With
With Sheets("Chitiet-Doituong")
For i = 1 To a
.Range("c8").Value = kq(i, 1)
'.PrintPreview
.PrintOut
Next i
End With
End Sub

Thử bỏ dòng này.

.PrintOut

 

[giangcoilove]

Thử bỏ dòng này.

.PrintOut

dạ

em làm thử thì e thấy nó chạy chạy liên tục, em muốn nó view ra 1 file excel khác để em xem và cân chỉnh lại trang dòng đó ak. a có thể giúp em nốt phần này ạ