Bài tập có file kết quả không ạ? Em đang bị vướng ở mục tạo Macro cho printer
Lệnh VBA cho in như sau:
1. ra lệnh in cho máy in
TenSheet.PrintOut
ví dụ:
Sheet1.PrintOut
2. thiết lập vùng in
TenSheet.PageSetup.PrintArea = "A1:I15"
Bạn có thể đổi tọa độ vùng in thay cho "A1:I15" theo dòng cuối bằng cách:
Dim DongCuoi as Long
DongCuoi = .... (code tìm dòng cuối)
Sheet1.PageSetup.PrintArea = Sheet1.Range("A1:I" & dongCuoi)
3. Xem trang in
TenSheet.PrintPreview
Em cảm ơn ạ
Chúc bạn học tốt cùng gitiho