Hỏi về: Căn chỉnh trang in mặc định

[boyxin]

Chào các bác

Đoạn code sau: Add thêm sheet đồng thời căn chỉnh trang in

Sub Add_Sh()
    Sheets.Add
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.25) 'Le trai
        .RightMargin = Application.InchesToPoints(0.25) 'Le phai
        .TopMargin = Application.InchesToPoints(0.25) 'Le tren
        .BottomMargin = Application.InchesToPoints(0.25) 'Le duoi
        .HeaderMargin = Application.InchesToPoints(0.25) 'Le cua tieu de tren
        .FooterMargin = Application.InchesToPoints(0.25) 'Le cua tieu de duoi
        .CenterHorizontally = True 'Canh giua: trai-phai
    End With
End Sub

Cho em hỏi:
Khi em đã căn chỉnh trang in cho sheet1 rồi. Có cách nào để khi vào Insert \ Worksheet thì Excel tự động căn chỉnh trang in cho sheet mới như đã thiết lập ở sheet đầu không?

 

[ptm0412]

Sub Add_Sh()
Sheets.Add
With ActiveSheet.PageSetup
.LeftMargin = Sheets("sheet1").PageSetup.LeftMargin
.RightMargin = Sheets("sheet1").PageSetup.RightMargin
. . . .
End With
End Sub

 

[Chuotdong]

Nếu ko dùng code chỉ cần Group các sheet lại là được có đúng ko nhỉ ?

 

[boyxin]

Nếu ko dùng code chỉ cần Group các sheet lại là được có đúng ko nhỉ ?

Đang muốn hỏi: Có cách nào để khi vào Insert \ Worksheet thì Excel tự động căn chỉnh trang in cho sheet mới như đã thiết lập ở sheet đầu không?

 

[dat2007]

Đang muốn hỏi: Có cách nào để khi vào Insert \ Worksheet thì Excel tự động căn chỉnh trang in cho sheet mới như đã thiết lập ở sheet đầu không?

Private Sub Workbook_NewSheet(ByVal Sh As Object)

.... Code

End Sub

 

[boyxin]

cảm ơn các bác đã quan tâm đến vấn đề này: Đó là giải pháp cần phải dùng code (cách của Dat2007 không hiệu quả)

Vậy Nếu không phải viết code thì liệu Có cách nào để khi vào Insert \ Worksheet thì Excel tự động căn chỉnh trang in cho sheet mới như đã thiết lập ở sheet đầu không?

 

[honglaumong]

khong co khong biet hi

 

[ptm0412]

Có 1 cách là tạo 1 file template .xlt:
- Mở file mới
- Xoá hết chừa lại 1 sheet
- Định dạng sheet còn lại như ý muốn
- Lưu đưới dạng xlt với tên tuỳ ý thí dụ "boyxin"
- Đóng lại.

Sau này khi insert sheet thì phải click phải vào sheet tab, chọn insert, chọn cái tên "boyxin.xlt" và OK. Nếu file boyxin.xlt hồi nãy không xoá bớt sheet, thì khi insert sẽ insert 1 lần 3 sheet.

Nhưng gọi là insert 1 sheet từ menu Insert Worksheet giống 1 sheet có sẵn thì không được. Copy sheet bằng move or copy thì được.