hoaithu1163
Thành viên mới
- Tham gia
- 1/6/20
- Bài viết
- 4
- Được thích
- 3
Lang thang trên GPE tìm kiếm được đoạn code này của BÁC BEFAINT
Sub PrintPdf()
Dim pFolder As String, i&
Dim pFile()
pFolder = GetFolder("") & "\"
If pFolder = "\" Then Exit Sub
pFile = GetFileList(pFolder)
For i = 1 To UBound(pFile)
strFilePath = pFolder & pFile(i)
PrintFile pFolder & pFile(i)
Next
End Sub
www.giaiphapexcel.com
Mong mọi người giúp đỡ :: em muốn in từ trang 2 đến trang 3 của các file dpf trong cùng 1 thư mục. Vậy phải thêm đoạn code như thế nào vào đoạn code trên xin mọi ngưới giúp ạ.
Sub PrintPdf()
Dim pFolder As String, i&
Dim pFile()
pFolder = GetFolder("") & "\"
If pFolder = "\" Then Exit Sub
pFile = GetFileList(pFolder)
For i = 1 To UBound(pFile)
strFilePath = pFolder & pFile(i)
PrintFile pFolder & pFile(i)
Next
End Sub
Xin Cách in file PDF trong vba bằng forxit thay cho cách In bằng Adobe
Mình muốn cách in file pdf bằng vba và tự động scale cho vừa trang giấy như khi mở các chương trình đọc file pdf vì mình có file A3 mà cần in A4. với việc gọi bằng 1 trong 2 chương trình Forxit và SumatraPDF (hoặc chương trình đọc file pdf nhẹ nhàng khác) . Vì mình đã làm được bằng Adobe acrobat...
www.giaiphapexcel.com
Mong mọi người giúp đỡ :: em muốn in từ trang 2 đến trang 3 của các file dpf trong cùng 1 thư mục. Vậy phải thêm đoạn code như thế nào vào đoạn code trên xin mọi ngưới giúp ạ.
