Nhờ giúp đỡ về lệnh in HĐLĐ (1 người xem)

[traitimvocam]

Dear anh/chị trên GPE, Em có 1 file hợp đồng lao động, trước đây em có nhờ 1 bạn đặt lệnh in cho và bạn ý có khóa pass word code, giờ em muốn thêm 1 điều kiện để in nữa để khi in ra em không phải ngồi nhặt bạn A ở tổ A, bạn B ở tổ B có được không. E muốn thêm 1 điều kiện phân tổ và phân loại đó là HĐLĐ và Phụ lục HĐLĐ ở 2 sheert riêng. Trước kia em chỉ cần chọn lệnh in từ số Hợp đồng từ số 1 đến số n... là ra tất. Sau đó em ngồi phân tổ thủ công. Mong anh/chị giúp em với. Em cảm ơn anh/chị rất nhiều.

 

[traitimvocam]

Anh/chị có thể phá giúp em cái pass word code được không, em muốn xem lệnh in cũ lại như nào để thêm tiếp các điều kiện mới.

 

[Hong.Van]

Anh/chị có thể phá giúp em cái pass word code được không, em muốn xem lệnh in cũ lại như nào để thêm tiếp các điều kiện mới.

đây code, bạn tự sửa nha!

Sub InHopDong()tu = Application.InputBox("IN TU:", Type:=1)
den = Application.InputBox("IN DEN:", Type:=1)
'If tu = "" Or den = "" Then GoTo KT
'For i = tu To den
'Sheet1.Cells(1, 15) = i


t = Application.WorksheetFunction.Count("P5:P65536")
For i = tu To den
    Range("B4") = i
    ActiveSheet.PrintOut Copies:=2
Next i
'KT:
End Sub

Sub InPhuLucHD()
tu = Application.InputBox("IN TU:", Type:=1)
den = Application.InputBox("IN DEN:", Type:=1)
'If tu = "" Or den = "" Then GoTo KT
'For i = tu To den
'Sheet1.Cells(1, 15) = i


t = Application.WorksheetFunction.Count("P5:P65536")
For i = tu To den
    Range("B4") = i
    ActiveSheet.PrintOut Copies:=2
Next i


'KT:
End Sub

 

[traitimvocam]

đây code, bạn tự sửa nha!

Sub InHopDong()tu = Application.InputBox("IN TU:", Type:=1)
den = Application.InputBox("IN DEN:", Type:=1)
'If tu = "" Or den = "" Then GoTo KT
'For i = tu To den
'Sheet1.Cells(1, 15) = i


t = Application.WorksheetFunction.Count("P5:P65536")
For i = tu To den
    Range("B4") = i
    ActiveSheet.PrintOut Copies:=2
Next i
'KT:
End Sub

Sub InPhuLucHD()
tu = Application.InputBox("IN TU:", Type:=1)
den = Application.InputBox("IN DEN:", Type:=1)
'If tu = "" Or den = "" Then GoTo KT
'For i = tu To den
'Sheet1.Cells(1, 15) = i


t = Application.WorksheetFunction.Count("P5:P65536")
For i = tu To den
    Range("B4") = i
    ActiveSheet.PrintOut Copies:=2
Next i


'KT:
End Sub

Em cảm ơn anh/chị sửa giúp em điều kiện in cho em với, em có biết gì về code vba đâu. Mong thư anh/chị rất nhiều.