Save khi đóng tất cả các workbook

[aviaiva]

Câu 1: Các bác cho em hỏi, em có một file mà khi mở lên sẽ liên kết nhiều đến các workbook khác, em muốn khi đóng, tất cả các workbook đó đều được lưu lại vào một thư mục mới (đặt sẵn) thì viết code thế nào.


Câu 2: code viết cho máy in, in theo điều kiện nhập sẵn
VD Cột (A: trang số ) (Cột B: số dòng in)
nếu em nhập là 1, 20 thì máy sẽ in trang số 1 ; 20 dòng (tính từ vị trí ngắt trang)
nếu em nhập là 17, 41 thì máy sẽ in trang số 17; 40 dòng
(Tất cả các trang đã định sẵn ngắt trang)

Em mong được các bác giúp đỡ nhiều.
Thank

 

[hoa35ktxd]

Tôi có Ý tương thế này.
Câu 1:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
- Sử dụng từ khóa "=[" để tìm các liên kết trên tất cả các sheet (đã có bài nói về việc tìm kiếm và thay thế trên các sheet), tên các file liên kết là chuỗi trong cặp dấu []
- Sử dụng Application.Workbooks(ten_file_lay_o_tren).SaveAs (...)
End Sub
Câu 2:
dùng ActiveSheet.PageSetup.PrintArea = "$A$1:$H$26" để xác định vùng in