Xuất sheet thành file PDF

Chia sẻ bởi:hoanganhtink4

★★★★★

‹ Các hàm tách họ tên Lấy dữ liệu nhiều files từ nhiều... ›

Quảng cáo

E có sử dụng code sau để xuất 1 sheet ra PDF
Sub XuatPDF()
      Sheet13.ExportAsFixedFormat xlTypePDF
End Sub
E muốn phát triển code thêm chút với các mục đích sau:
– Lưu file PDF có tên dạng ddmmyyyy hhmmss (ngày giờ xuất) vào đường dẫn nào đó (vd: D:) và mở file PDF đó ra cho người dùng xem..
Mong giúp đỡ. E xin cảm ơn…

Thử thế này xem sao

Sub XuatPDF()
ActiveSheet.ExportAsFixedFormat xlTypePDF, "C:UsersQuangHaiDesktop" & Date
End Sub

Hoặc vầy

Sub XuatPDF()
Dim filename As String
filename = "C:UsersQuangHaiDesktop" & Date & Space(1) & Hour(Time) & Minute(Time) & Second(Time)
ActiveSheet.ExportAsFixedFormat xlTypePDF, filename
End Sub