chào các bạn trong diển đàn
em có 1 code để in theo tuần , in tuần thứ 1 thì được , nhưng từ tuần thứ 2 trở đi thì không ( thí dụ bấm in tuần thứ 2 thì nó in thành 2 tuần 1 và 2)
nhờ các bạn cao thủ xem và sửa giùm , em cám ơn nhiều
code
Sub Impression()
'
Dim Sem, i As Integer
'
Sem = InputBox("Numéro semaine?")
If Sem = 1 Then
i = 0
Else
i = (Sem - 1) * 7
End If
Range("A" & (6 + i) & ":" & "Z" & (12 + i)).Select
Selection.PrintOut Copies:=1, Collate:=True
End Sub
em có 1 code để in theo tuần , in tuần thứ 1 thì được , nhưng từ tuần thứ 2 trở đi thì không ( thí dụ bấm in tuần thứ 2 thì nó in thành 2 tuần 1 và 2)
nhờ các bạn cao thủ xem và sửa giùm , em cám ơn nhiều
code
Sub Impression()
'
Dim Sem, i As Integer
'
Sem = InputBox("Numéro semaine?")
If Sem = 1 Then
i = 0
Else
i = (Sem - 1) * 7
End If
Range("A" & (6 + i) & ":" & "Z" & (12 + i)).Select
Selection.PrintOut Copies:=1, Collate:=True
End Sub
