dùng macro để lấy tên máy in đang để chế độ default (1 người xem)

[truongduchoa]

có bạn nào biết không chỉ giúp mình với,

chân thành cảm ơn

 

[ndu96081631]

có bạn nào biết không chỉ giúp mình với,

chân thành cảm ơn

Tham khảo cái này xem:
http://blog.jtbworld.com/2006/01/get-name-of-default-printer-using-vba.html

 

[transongngocquan]

Bạn thử code này xem
TenMayIn=Application.ActivePrinter

 

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

Bạn cũng có thể dùng code sau:

Function GetDefaultPrinter()
Dim objReg As Object, strRegVal As String, strValue As String
Const HKEY_CURRENT_USER = &H80000001
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strRegVal = "Software\Microsoft\Windows NT\CurrentVersion\Windows\"
objReg.GetStringValue HKEY_CURRENT_USER, strRegVal, "Device", strValue
GetDefaultPrinter = Left(strValue, InStr(1, strValue, ",") - 1)
End Function

Bạn xem them file nhé
Thân