quốc bình
Yêu THVBA
A/C cho em hỏi, em có đoạn code bên dưới để xuất một vùng chọn sang PDF nhưng vòng lặp i chạy với số lớn mà mỗi lần chạy lại phải ngồi click save để lưu file, giờ em làm sao để nó tự lưu lại không cần ngồi click save nữa chứ làm tự động mà cứ ngồi click như thế cũng hơi mất thời gian. xin cảm ơn A/C nhiều!
Mã:
Sub PrintSelectionToPDF()
Dim invoiceRng As Range
Dim strfile As String
Dim myfile As Variant
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("BVLN")
Set invoiceRng = Range("A1:M31")
Application.EnableEvents = False
For i = 1 To 100
ws.Range("N1") = i
strfile = "BienBan" & "_" & i & ".pdf"
myfile = Application.GetSaveAsFilename(InitialFileName:=strfile, FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Lua chon thu muc và tên file luu thành PDF")
invoiceRng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=myfile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
Application.EnableEvents = True
End Sub