Giúp đỡ về Macro trong Excel (1 người xem)

huangocthanhtam · 10/10/15

Hi mọi người,

Em có làm 1 macro để tự động fill ngày tháng rồi in, Khi in nó sẽ in ra đủ 30 ngày, Tuy nhiên em chỉ muốn in trang số 1 thôi nhưng file hiện tại lúc in nó in tới 2 trang, Có anh/chị nào có thể hướng dẫn giúp em được không ạ,

Mọi người mở file đính kèm cho dễ hiểu nhé

giaiphap · 10/10/15

huangocthanhtam đã viết:
Hi mọi người,

Em có làm 1 macro để tự động fill ngày tháng rồi in, Khi in nó sẽ in ra đủ 30 ngày, Tuy nhiên em chỉ muốn in trang số 1 thôi nhưng file hiện tại lúc in nó in tới 2 trang, Có anh/chị nào có thể hướng dẫn giúp em được không ạ,

Mọi người mở file đính kèm cho dễ hiểu nhé

Bạn sửa code tại nút lệnh Print như sau:

Mã:

Sub printt()
Dim d, m, y
m = Sheet1.Range("O2")
y = Year(Date)
d = Day(Application.EoMonth(m & "/01/" & y, 0))
For i = 1 To d - 1 Step 2
        Sheet1.Range("E4") = m & "/" & i & "/" & y
        Sheet1.Range("J4") = Sheet1.Range("E4") + 1
        Sheet1.PrintOut [COLOR=#ff0000]From:=1, To:=1, Copies:=1, Collate _[/COLOR]
[COLOR=#ff0000]        :=True, IgnorePrintAreas:=False[/COLOR] 'To print
Next i
'Cac thang co 29/ 31 ngay:
If d = 29 Or d = 31 Then
        Sheet1.Range("E4") = m & "/" & d & "/" & y
        Sheet1.Range("J4") = ""
        Sheet1.PrintOut[COLOR=#ff0000] From:=1, To:=1, Copies:=1, Collate _[/COLOR]
[COLOR=#ff0000]        :=True, IgnorePrintAreas:=False[/COLOR] 'To print
End If
End Sub

huangocthanhtam · 10/10/15

giaiphap đã viết:

Bạn sửa code tại nút lệnh Print như sau:

Mã:

Sub printt()
Dim d, m, y
m = Sheet1.Range("O2")
y = Year(Date)
d = Day(Application.EoMonth(m & "/01/" & y, 0))
For i = 1 To d - 1 Step 2
        Sheet1.Range("E4") = m & "/" & i & "/" & y
        Sheet1.Range("J4") = Sheet1.Range("E4") + 1
        Sheet1.PrintOut [COLOR=#ff0000]From:=1, To:=1, Copies:=1, Collate _[/COLOR]
[COLOR=#ff0000]        :=True, IgnorePrintAreas:=False[/COLOR] 'To print
Next i
'Cac thang co 29/ 31 ngay:
If d = 29 Or d = 31 Then
        Sheet1.Range("E4") = m & "/" & d & "/" & y
        Sheet1.Range("J4") = ""
        Sheet1.PrintOut[COLOR=#ff0000] From:=1, To:=1, Copies:=1, Collate _[/COLOR]
[COLOR=#ff0000]        :=True, IgnorePrintAreas:=False[/COLOR] 'To print
End If
End Sub

Cảm ơn các anh 3 cách trên em đều đã thử và thành công hết rồi ạ @$@!^%