in trên 1 trang A4

[ducdinh1987]

chào tất cả anh chị.
anh chị cho em xin code để in 1 trang duy nhất trong 5 trang được không, em làm code này rồi mà nó cứ in 5 trang không ah:

Sub IN_dinh()
Dim i As Long
For i = 0 To 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub

cảm ơn anh chị nhiều

http://dinhrriv.tk/

 

[dhn46]

bạn có thể record macro để ghi lại hành động in 1 trang của bạn.
ví dụ tôi vừa record đây:

Sub Macro1()    
ActiveWindow.SelectedSheets.PrintOut [COLOR=#ff0000]From:=1, To:=1[/COLOR], Copies:=1, Collate:=True
End Sub

Phần chữ màu đỏ là chỉ định in 1 trang thứ 1 đấy!