Sau khi chạy vòng lặp in file bị chậm

[leba207]

Anh chị cho hỏi sau khi sử dụng vòng lặp để in hàng loạt, file excel có hiện tượng nặng, chậm.
Xin hỏi nguyên nhân vì sao và có cách nào khắc phục kg ạ!
Em xin cám ơn!

 

[snow25]

Anh chị cho hỏi sau khi sử dụng vòng lặp để in hàng loạt, file excel có hiện tượng nặng, chậm.
Xin hỏi nguyên nhân vì sao và có cách nào khắc phục kg ạ!
Em xin cám ơn!

Tuỳ bạn nhé.Nếu code bạn nó thêm dữ liệu nó sẽ nặng hơn.Bạn nên đưa file và code lên.

 

[leba207]

Sub TestPrint()

Dim i As Integer, LastRow As Integer, J As Integer

Application.ScreenUpdating = False

LastRow = Sheet4.Cells(Sheet4.Rows.Count, "A").End(xlUp).Row

For i = 4 To LastRow
If Sheet4.Cells(i, 3) = "x" Then ' Nếu có x là đối tượng cần in
Sheet6.Range("N1") = Sheet4.Cells(i, 1).Value ' Gắn đối tượng để nhẩy công thức ở file in
Sheet5.PrintOut ActivePrinter:="Microsoft Print to PDF" 'Preview:=True, ' In file ra dưới dạng pdf
End If
Next i

Application.ScreenUpdating = True

End Sub


Đây là code của mình, nhưng khi in xong mà bấm chọn 1 ô bất kỳ nào đó thì màn hình nó có hiện tượng: nội dung sheet khác đè lên sheet đang đứng. Nhưng khi di chuột lên xuống thì sẽ hết.

 

[anhdepjai]

Mình sẽ không in bằng cái microsoft to pdf.
MÌnh thường sử dụng cái này

Sub ClearForm()
Dim sRoot As String, FS
Dim na1, na2 As String
'************************************ Make Folder
On Error Resume Next
sRoot = "D:\DATA\Pdf\" & Format(Now, "dd - mm - yyyy")
Set FS = CreateObject("Scripting.FileSystemObject")
If Not (FS.FolderExists(sRoot)) Then MkDir sRoot

'************************************ Make pdf

na1 = sRoot & "\OUT " & Sheet4.Range("O10") & " " & Format(Now, "ddmmyy") & " " & Format(Now, "hhmm") & ".pdf"
na2 = sRoot & "\IN " & Sheet4.Range("O10") & " " & Format(Now, "ddmmyy") & " " & Format(Now, "hhmm") & ".pdf"
If Sheet4.Range("A5") = 0 Then GoTo NextStep:
If Sheet4.Range("A5") = 1 Then
Sheet4.Range("B234").ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
na1, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
1 đoạn của nó thôi nhé
Code chạy ổn. Bạn cần có cái phần save as pdf