làm sao để lấy được tên máy in (trong mục print) (1 người xem)

[Tường_Vi]

Lúc em nhấn Ctrl + P em thấy một danh sách các máy in. Em định copy và paste tên máy in đó nhưng không được

Vậy muốn lấy 1 trong các tên đó thì mình làm như nào?

Em sưu tầm một code này nhưng không biết có phải ko?

Private Sub Form_Load()
Dim prt As Printer
For Each prt In Application.Printers
' Use the new AddItem method to add the printer name
' to the list box.
Me!cmbPrinter.AddItem prt.DeviceName
Next
End Sub

 

[vu_tuan_manh_linh]

Đã thử check code bạn đưa lên, nhưng thấy biến prt không khai báo được, đồng thời Application.Printer không tồn tại.

 

[Hai Lúa Miền Tây]

Bạn dùng thử code sau:

Sub test()
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

 

[Lequocvan]

bạn vào cmd => cd\ => c: => thực hiện lệnh sau: WMIC PRINTER LIST STATUS >> \%username%"-"%computername%"-"listprinters.txt
vào ổ cứng C:\ tìm file txt như trên.

 

[ndu96081631]

bạn vào cmd => cd\ => c: => thực hiện lệnh sau: WMIC PRINTER LIST STATUS >> \%username%"-"%computername%"-"listprinters.txt
vào ổ cứng C:\ tìm file txt như trên.

Trong VBA thì vầy:

Sub Test()
  Dim i As Long
  With CreateObject("WScript.Network")
    For i = 1 To .EnumPrinterConnections.Count Step 2
      MsgBox .EnumPrinterConnections(i)
    Next
  End With
End Sub

 

[Tường_Vi]

Với cách của sư Huynh NDU em cho vào Combo Box ngon lành. Ẹc ẹc