in file excel sang FDF hàng loạt

[AnhNQT]

Xin chào các anh/chị!
Nhờ các anh chị chỉ giúp (thêm VBA) để in file đính kèm thành 1 file .PDF.
Hiện tại code chỉ in 1 trang 1 và phải đặt tên. Em muốn sửa thành in từ 1 đến 5 nhưng chỉ trong 1 file PDF và đặt tên theo định dạng "Print from 1 to 5 ddmmyyyy"
Em cảm ơn!

 

[Maika8008]

Xin chào các anh/chị!
Nhờ các anh chị chỉ giúp (thêm VBA) để in file đính kèm thành 1 file .PDF.
Hiện tại code chỉ in 1 trang 1 và phải đặt tên. Em muốn sửa thành in từ 1 đến 5 nhưng chỉ trong 1 file PDF và đặt tên theo định dạng "Print from 1 to 5 ddmmyyyy"
Em cảm ơn!

Trước tiên thay đổi 1 chút để khỏi đặt tên thủ công, vẫn phải in ra 5 file với tên là Print from 1 to 5 ddmmyyyy.pdf đến Print from 5 to 5 ddmmyyyy.pdf

Sub printF()
    Dim i As Long, printFrom As Long, printTo As Long
    printFrom = Sheet2.Range("i4").Value
    printTo = Sheet2.Range("i5").Value
    For i = printFrom To printTo
        Sheet2.Range("I1").Value = i
        Sheet2.PrintOut ActivePrinter:="Microsoft Print to PDF", PrintToFile:=True, PrToFileName:=ThisWorkbook.Path & "\" & "Print from " & i & " to " & printTo & " " & Format(Date, "ddmmyyyy") & ".pdf"   
    Next i
End Sub