vutunam010583
Thành viên mới
- Tham gia
- 21/3/08
- Bài viết
- 28
- Được thích
- 0
- Nghề nghiệp
- Kế toán
Chào các Anh chị, các bạn GPE,
Mình học mót và chế biến code này để in liên tục, nhưngkhông hiểu tại sao vẫn không được, nó chỉ in ra cùng 1 cái
Mong các Anh chị và các bạn sữa lại giùm.
Sub Auto_Print_PKL_Pro()
Dim IE, i As Long, j As Long, k As Long
i = InputBox("Nhap so thu tu FROM", "FROM")
j = InputBox("Nhap so thu tu TO", "TO")
IE = Sheets("PKL").Range("C3").Value
Dim wkb As Workbook, fileName1 As String, fileName2 As String
fileName1 = "H:\OPERATION\Logistic Management\Import - Export\EXPORT DOCUMENT\PACKING LIST 2016\LOCAL 2016" & IE & ".xlsx"
fileName2 = "H:\OPERATION\Logistic Management\Import - Export\EXPORT DOCUMENT\PACKING LIST 2016\DIRECT EXPORT 2016" & IE & ".xlsx"
For k = i To j
Sheets("PKL").Cells(2, 7).Value = k
On Error Resume Next
Set wkb = Workbooks.Open(fileName1)
If Err.Number Then Set wkb = Workbooks.Open(fileName2)
On Error GoTo 0
With wkb
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.Close
End With
Next k
Sheets("PKL").Select
End Sub
Xin Cảm ơn !
Mình học mót và chế biến code này để in liên tục, nhưngkhông hiểu tại sao vẫn không được, nó chỉ in ra cùng 1 cái
Mong các Anh chị và các bạn sữa lại giùm.
Sub Auto_Print_PKL_Pro()
Dim IE, i As Long, j As Long, k As Long
i = InputBox("Nhap so thu tu FROM", "FROM")
j = InputBox("Nhap so thu tu TO", "TO")
IE = Sheets("PKL").Range("C3").Value
Dim wkb As Workbook, fileName1 As String, fileName2 As String
fileName1 = "H:\OPERATION\Logistic Management\Import - Export\EXPORT DOCUMENT\PACKING LIST 2016\LOCAL 2016" & IE & ".xlsx"
fileName2 = "H:\OPERATION\Logistic Management\Import - Export\EXPORT DOCUMENT\PACKING LIST 2016\DIRECT EXPORT 2016" & IE & ".xlsx"
For k = i To j
Sheets("PKL").Cells(2, 7).Value = k
On Error Resume Next
Set wkb = Workbooks.Open(fileName1)
If Err.Number Then Set wkb = Workbooks.Open(fileName2)
On Error GoTo 0
With wkb
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.Close
End With
Next k
Sheets("PKL").Select
End Sub
Xin Cảm ơn !
