Chức năng in macro không hoạt động trong Excel 2016 dành cho Mac.

Về cơ bản là như vậy.

Tôi có thể ghi và chạy các macro khác, nhưng vì lý do nào đó, khi ghi macro tự động in một bảng tính thì nó lại không chạy.

Đây có phải là chức năng chỉ dành cho Windows không?

Tôi đã mất vài giờ đầy bực bội để cố gắng làm cho nó hoạt động.

Cảm ơn

Đây là mã code

Sub Macro19()
'
Macro19 Macro
'

'
Ứng dụng.Truyền thông in ấn = Đúng
Với ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
Kết thúc bằng
Ứng dụng.Truyền thông in ấn = Đúng
ActiveSheet.PageSetup.PrintArea = ""
Ứng dụng.PrintCommunication = Sai
Với ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Calibri,Regular""&K000000&D &T"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "&""Calibri,Regular""&K000000&N"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Bản nháp = Sai
.Kích thước giấy = xlPaperA4
.FirstPageNumber = xlAutomatic
.Thứ tự = xlDownThenOver
.Đen và Trắng = Sai
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
Kết thúc bằng
Ứng dụng.Truyền thông in ấn = Đúng
End Sub

Trả lời:
Chào, tôi là Elise, một cố vấn độc lập và tôi rất vui được giúp bạn giải quyết vấn đề.

Tôi nghĩ bạn chỉ thiếu lệnh in thực tế ở cuối cùng:

ActiveSheet.PrintOut

Chỉ cần thêm đoạn mã này vào trước End Sub

Vui lòng cho tôi biết nếu bạn cần thêm bất kỳ sự hỗ trợ nào khác.

Trân trọng,
Elise

Trả lời:

Đây là lời cảnh báo tiêu chuẩn mà tôi đưa ra mỗi khi thấy một chủ đề có tin nhắn từ kẻ lừa đảo hỗ trợ. Có thể bạn không thấy tin nhắn đó (nó đã bị xóa khỏi diễn đàn), nhưng nếu bạn đã đăng ký theo dõi chủ đề đó, bạn có nhận được email chứa tin nhắn lừa đảo không? Để đề phòng, đây là lời cảnh báo của tôi:

KHÔNG trả lời các tin nhắn yêu cầu bạn liên hệ với bộ phận Hỗ trợ của Microsoft, MVP hoặc cố vấn.

Bộ phận Hỗ trợ của Microsoft, các Cố vấn của Microsoft và các MVP sẽ KHÔNG BAO GIỜ yêu cầu bạn gọi điện hoặc liên hệ với họ. Đừng trả lời những yêu cầu như vậy trên diễn đàn này hoặc trong email phát sinh từ bài đăng của bạn ở đây. Các câu hỏi và bình luận hỗ trợ trên diễn đàn được trả lời trên chính diễn đàn, chứ không phải ở nơi khác.

Yêu cầu liên hệ như vậy là giả mạo. Đó là một âm mưu nhằm chiếm đoạt máy tính của bạn, đánh cắp dữ liệu và danh tính của bạn.

Hãy tự bảo vệ mình khỏi các chiêu trò lừa đảo trực tuyến và các hình thức gian lận trực tuyến khác - Hỗ trợ Văn phòng