Tạo nút chọn máy in bằng VBA?

[thanhphuongvip]

Chào cả nhà GPE, mỗi phần mềm mình đều cài đặt máy in mặc định để in, mình đang muốn tạo một nút để chọn máy in mặc định trước khi in như bên dưới:



Hộp sẽ xuất hiện để chọn máy in:




Để mình áp dụng trong code in này

Application.ActivePrinter = [ô chứa tên máy in như trên hình]

Xin cảm ơn!

 

[giaiphap]

Chào cả nhà GPE, mỗi phần mềm mình đều cài đặt máy in mặc định để in, mình đang muốn tạo một nút để chọn máy in mặc định trước khi in như bên dưới:

View attachment 218045

Hộp sẽ xuất hiện để chọn máy in:

View attachment 218046


Để mình áp dụng trong code in này

Application.ActivePrinter = [ô chứa tên máy in như trên hình]

Xin cảm ơn!

Bạn nghiên cứu thử code này xem sao?

Public Sub test()
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
      MsgBox Application.ActivePrinter
End If
End Sub

 

[thanhphuongvip]

Bạn nghiên cứu thử code này xem sao?

Public Sub test()
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
      MsgBox Application.ActivePrinter
End If
End Sub

Khi nó hiện ra msgBox mang tên máy in mình chọn, vậy lệnh nào để đưa tên máy in vừa hiện ra đó vào ô A1 nhỉ? Mục đích để mình đưa ô A1 vào tên máy in ở mỗi sheet cần in ạ!

Bài đã được tự động gộp: 27/5/19

Ah mình đã tìm ra cách, đơn giản quá, chỉ là

Range("a1") = Application.ActivePrinter