Güncel olmayan bir tarayıcı kullanıyorsunuz. Bunu veya diğer web sitelerini doğru şekilde göstermeyebilir. Yükseltmeli veya bir alternatif kullanmalısınız. tarayıcı.
Bilgisayarda bulunan yazıcıları listeleme kodu:
Sub get_printers()
Dim WshNetwork As Object
Dim oPrinters As Object
Dim i As Integer
On Error Resume Next
Set WshNetwork = CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 0 To oPrinters.Count - 1...
Windows 10 (20H2 / 2004) KB5000802, KB5000803 ve KB5000808 güncellemeleri ile başlayan yazıcı sorunları, KB5001567 güncellemesi ile düzeltilmiştir...
Güncellemeyi Windows Update üzerinden otomatik alabilir ya da bu linkten indirip kurabilirsiniz. 64-bit and 32-bit (x86).