Chia sẻ sổ làm việc Excel với một nhóm cũng có nghĩa là tham gia vào các máy in khác nhau, các PC khác nhau cũng như các yêu cầu và mong đợi khác nhau của người dùng. Điều này không rõ ràng hơn khi nói đến việc in một trang tính. Những người dùng khác nhau rõ ràng có các PC khác nhau và có thể có các máy in khác nhau, vì vậy kết quả in có thể khác nhau từ người dùng này sang người dùng khác. Ngoài ra, những người dùng khác nhau có thể thay đổi phạm vi in ​​trong những gì được tạo ra từ một trang tính.

Nếu bạn chịu trách nhiệm về một trang tính cụ thể, bạn có thể muốn bằng cách nào đó bảo vệ các cài đặt in khác nhau mà bạn đã thiết lập để chúng không bị người dùng khác cắt xén. Có lẽ cách dễ nhất để làm điều này là lưu cài đặt in của bạn trong một macro, sau đó chạy macro đó mỗi khi đóng sổ làm việc. Bằng cách đó, các cài đặt có thể được thay đổi trở lại “mặc định” mà bạn chỉ định mà không phải lo lắng rằng người dùng sẽ làm rối tung tất cả chúng.

Ví dụ: macro sau đây cho thấy cách bạn có thể đặt tất cả các cài đặt in cho một lệnh in cụ thể:

Sub Auto_Close()

With ActiveSheet.PageSetup         .LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

.LeftMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.PrintHeadings = False         .PrintGridlines = False         .PrintComments = xlPrintNoComments         .CenterHorizontally = False         .CenterVertically = False         .Orientation = xlPortrait         .Draft = False         .PaperSize = xlPaperLetter         .FirstPageNumber = xlAutomatic         .Order = xlDownThenOver         .BlackAndWhite = False         .Zoom = False         .FitToPagesWide = 1         .FitToPagesTall = 99         .PrintErrors = xlPrintErrorsDisplayed         .PrintArea = "MyPrintArea"

.PrintTitleRows = ""

.PrintTitleColumns = ""

End With End Sub

Để làm cho macro hoạt động cho các nhu cầu cụ thể của bạn, chỉ cần sửa đổi cài đặt để phù hợp với bất kỳ yêu cầu nào của bạn.

Tất nhiên, khi người khác mở sổ làm việc của bạn, macro có thể bị tắt tự động hoặc họ có thể thấy thông báo rằng có macro trong đó. Nếu họ chọn tắt macro, thì macro cài đặt mặc định của bạn sẽ không chạy khi đóng sổ làm việc. Tất nhiên, giải pháp dành cho bạn là mở sổ làm việc, bật macro và sau đó đóng sổ làm việc. Thao tác này sẽ chạy macro và cài đặt của bạn được khôi phục lại như bạn muốn.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (11599) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.

Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: