29 VBA Advanced Printer and Sendkeys

Описание: 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