Sn:hegu
Örneğinizi inceleyemedim ama kodu aşağıdaki şekilde yazınız.

Application.ActivePrinter = "USB001: üzerindeki VEZNE HP LaserJet 1022 "

 ExecuteExcel4Macro _

 "PRINT(1,,,1,,,,,,,,2,""USB001: üzerindeki VEZNE HP LaserJet 1022 "",,TRUE,,FALSE)"

Bakalım olmuş mu ? inceleyip tekrar dönüş yaparmısınız.

sayın Duayen
İş yerine gidince deneme şansım olur size o zaman dönerim. Ama ilginize teşekkür ederim.

Sayın Duayen,
Denedim fakat hata verdi. Hatayı resim olarak ekliyorum. Debuga tıklayınca da "Application.ActivePrinter = "USB001: üzerindeki VEZNE HP LaserJet 1022 "
burayı seçiyor.
teşekkür ederim.

Birde bu şekilde denermisiniz bende hata vermedi.

Sayın Duayen,
malesef denedim yine olmadı.
ama ilginize çok teşekkür ederim. Olmazsa ben en son yapmış olduğum halde kullanmaya devam edeyim.
teşekkür ederim.