Ö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)"
Application.ActivePrinter = "USB001: üzerindeki VEZNE HP LaserJet 1022 "
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""USB001: üzerindeki VEZNE HP LaserJet 1022 "",,TRUE,,FALSE)"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""USB001: üzerindeki VEZNE HP LaserJet 1022 "",,TRUE,,FALSE)"