Excel.Application.ActivePrinter sẽ không hoạt động trên Windows 7 (Enterprise)
Công ty vừa nâng cấp máy tính (Dell Optiplex 790), và một số đoạn mã tùy chỉnh của tôi không còn hoạt động nữa. Cụ thể: Excel.Application.ActivePrinter được sử dụng để chuyển đổi giữa hai máy in để xuất kết quả. Tôi không nhận được bất kỳ thông báo lỗi nào, nhưng nó không thể thay đổi máy in mặc định theo lệnh. Chức năng này trước đây hoạt động tốt trên máy cũ chạy XP. Đây là đoạn mã tôi đã sử dụng trước đây. Dự án của tôi còn nhiều thứ khác nữa, nhưng đây là mã phát triển của tôi. Tất cả các thư viện dường như đều có mặt và được tham chiếu.
Private Sub Printer1_Click()
Khi xảy ra lỗi, tiếp tục.
Excel.Application.ActivePrinter = "ZDesigner 110XiIII Plus (300DPI) trên Ne01:"
Excel.Application.ActivePrinter = "ZDesigner 110XiIII Plus (300DPI) on Ne00:"
Khi xảy ra lỗi, tiếp tục.
Excel.Application.ActivePrinter = "ZDesigner 110XiIII Plus (300DPI) on Ne00:"
Excel.Application.ActivePrinter = "ZDesigner 110XiIII Plus (300DPI) trên Ne01:"
MsgBox "Tên của máy in đang hoạt động là " & _
Excel.Application.ActivePrinter
End Sub
Private Sub Printer2_Click()
Khi xảy ra lỗi, tiếp tục.
Excel.Application.ActivePrinter = "WA07PRLBP25989 Tòa nhà 6 - Phòng 4 - Kim loại nguyên chất trên Ne00"
Excel.Application.ActivePrinter = "WA07PRLBP25989 Tòa nhà 6 - Phòng 4 - Kim loại nguyên chất trên Ne01"
Khi xảy ra lỗi, tiếp tục.
Excel.Application.ActivePrinter = "WA07PRLBP25989 Tòa nhà 6 - Phòng 4 - Kim loại nguyên chất trên Ne01"
Excel.Application.ActivePrinter = "WA07PRLBP25989 Tòa nhà 6 - Phòng 4 - Kim loại nguyên chất trên Ne00"
MsgBox "Tên của máy in đang hoạt động là " & _
Excel.Application.ActivePrinter
End Sub
Trả lời:
Cảm ơn Microsoft vì đã không nâng cấp phần mềm của mình mà lại hạn chế khả năng hoạt động của nó. Tôi đã tìm ra một giải pháp thay thế phù hợp để các bạn có thể tiếp tục ngủ hoặc thực hiện thêm những thay đổi phần mềm vô dụng khiến việc sử dụng máy tính trở nên rắc rối hơn bao giờ hết!
Trả lời:
Hầu hết các trường hợp, bạn không đang nói chuyện với Microsoft, mà là với những người dùng khác giống như bạn, những người đang tìm kiếm câu trả lời hoặc tình nguyện cố gắng cung cấp câu trả lời.
Nếu bạn đã tìm ra cách khắc phục vấn đề, vui lòng giải thích ở đây để những người khác có thể tham khảo.
Cảm ơn.
Comments
Post a Comment