Из-за периодической блокировки нашего сайта РКН сервисами, просим воспользоваться резервным адресом:
Загрузить через dTub.ru Загрузить через ClipSaver.ruУ нас вы можете посмотреть бесплатно 29 VBA Advanced Printer and Sendkeys или скачать в максимальном доступном качестве, которое было загружено на ютуб. Для скачивания выберите вариант из формы ниже:
Роботам не доступно скачивание файлов. Если вы считаете что это ошибочное сообщение - попробуйте зайти на сайт через браузер google chrome или mozilla firefox. Если сообщение не исчезает - напишите о проблеме в обратную связь. Спасибо.
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса savevideohd.ru
29 VBA Advanced Printer and Sendkeys Follow-up of VBA Beyond Basics and VBA for EveryOne Series Topics in this Video: Knowing Current Printer Changing Printer Send Keyboard Keys to Excel through VBA My Blog: https://letsxcel.blogspot.com/ Code: Function vDefPrntr() Application.Volatile vActivPtr = Application.ActivePrinter vMyFind = InStr(1, vActivPtr, " on ") vActivPtr = Left(vActivPtr, vMyFind) 'vActivPtr = Right(vActivPtr, 31) vDefPrntr = vActivPtr End Function Sub vSelectPrinter() Application.SendKeys ("^p") End Sub Sub vRefreshPrint() Calculate End Sub Sub test() MsgBox (Application.ActivePrinter) End Sub Sub test1() MsgBox (InStr(1, "Sony Samsung Apple", "Apple")) End Sub