In file pdf theo danh sách trong excel

[VuVanHao]

Cho mình xin file excel của ông đang dùng được ko ạ.

Đây bạn nhé. In từ 2 file trở lên mới dc thì phải. Chứ chỉ có 1 là k chạy dc thì phải

 

[chuongham1995]

Đây bạn nhé. In từ 2 file trở lên mới dc thì phải. Chứ chỉ có 1 là k chạy dc thì phải

Là trong file PDF phải có 2 trang đúng ko ạ
Mình bấm vào nút Print rồi chọn Forder cần chứa ==> OK Sau đó nó ko có động tĩnh gì luôn.

 

[VuVanHao]

Là trong file PDF phải có 2 trang đúng ko ạ
Mình bấm vào nút Print rồi chọn Forder cần chứa ==> OK Sau đó nó ko có động tĩnh gì luôn.

Bạn xem lại:
1. Đường dẫn folder chứa file pdf: Không viết tiếng việt
2. Tên file PDF: Không viết tiếng việt
Thực tế file này mình dùng rất ổn: Trên Win7 & 10, office 10,13,16 cả 32 và 64bit đều ngon cả

 

[giaiphap]

Đây bạn nhé. In từ 2 file trở lên mới dc thì phải. Chứ chỉ có 1 là k chạy dc thì phải

Nếu muốn chia sẻ với mọi người thì nên bỏ Password VBE.

 

[VuVanHao]

Nếu muốn chia sẻ với mọi người thì nên bỏ Password VBE.

Vâng, các file trên đã có hết rồi ạ, mà em cũng nhờ anh thôi ạ.
Em sửa lại rồi ạ

 

[chuongham1995]

Em đã làm như hướng dẫn như clip ạ, máy in vẫn không có động tĩnh gì.
- đường dẫn + tên ko có tiếng việt ạ (em lấy file gốc PKN in thử)

 

[senbon]

có cách nào để in theo thứ tự từ trên xuống dưới ko mọi người

 

[VuVanHao]

@senbon Mình dùng nó vẫn bị vậy, có thể do thời gian nhận lệnh của máy in, dó đó mình dùng cách củ chuối là tăng thời gian chờ cho mỗi lệnh in. Code chỉnh như sau:

Sub testPrint()
Dim printThis
Dim strDir, Rng As String
Dim m, n, k As Byte
Dim i As Integer, chk As Boolean
With Sheet2
    m = .Range("J1").Value
    n = .Range("J2").Value
End With
chk = Application.FileDialog(msoFileDialogFolderPicker).Show
If Not chk Then Exit Sub
strDir = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
For i = m To n
    Sheet2.Range("A2") = i
    Rng = Sheet2.Range("B2").Value
    printThis = PrintThisDoc(0, strDir & Rng & ".PDF")
    Application.Wait (Now + TimeValue("00:00:07"))
Next i
End Sub

 

[senbon]

@senbon Mình dùng nó vẫn bị vậy, có thể do thời gian nhận lệnh của máy in, dó đó mình dùng cách củ chuối là tăng thời gian chờ cho mỗi lệnh in. Code chỉnh như sau:

Sub testPrint()
Dim printThis
Dim strDir, Rng As String
Dim m, n, k As Byte
Dim i As Integer, chk As Boolean
With Sheet2
    m = .Range("J1").Value
    n = .Range("J2").Value
End With
chk = Application.FileDialog(msoFileDialogFolderPicker).Show
If Not chk Then Exit Sub
strDir = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
For i = m To n
    Sheet2.Range("A2") = i
    Rng = Sheet2.Range("B2").Value
    printThis = PrintThisDoc(0, strDir & Rng & ".PDF")
    Application.Wait (Now + TimeValue("00:00:07"))
Next i
End Sub

B cho mình xin file excel đang chạy đoạn code của b với, thanks

 

[VuVanHao]

@senbon Đây bạn nhé

 

[senbon]

@senbon Đây bạn nhé

cảm ơn bạn nhiều nha, file excel của bạn giúp công việc mình dễ dàng hơn rất nhiều

 

[eneennn]

Sửa testPrint lại chút.

Sub testPrint()
Dim printThis, Arr()
Dim strDir As String
Dim i As Integer, chk As Boolean
chk = Application.FileDialog(msoFileDialogFolderPicker).Show
If Not chk Then Exit Sub
strDir = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Arr = Sheet2.Range("C2:C" & Sheet2.Range("C65000").End(xlUp).Row).Value
For i = 1 To UBound(Arr)
    printThis = PrintThisDoc(0, strDir & Arr(i, 1) & ".PDF")
Next i
End Sub

Anh ơi, nếu Trong folder PNK e chia nhỏ ra từng ngày như này. Đuôi pdf đc định dạng như trong hình ạ. thì nên sửa code lại như thế nào ạ

 

[lilknighthood]

Mình đã đặt trong thư mục k dấu, nhưng sao bấm in nó khong có động tĩnh gì nhỉ