En vba código para ejecutar la opción de imprimir del block de notas

Mi pregunta es si existe un código para ejecutar la opción de imprimir del block de notas.

El block de notas ya lo abro con su archivo correspondiente pero me gustaría que ejecutase la impresión del archivo seleccionado.

Este es el código

Dim abrir As Long

Dim Nombredelescritorio As String
archivo = Lista7.Value
Let Nombredelescritorio = CreateObject("wscript.shell").specialfolders("desktop")
abrir = Shell("notepad.exe " & Nombredelescritorio & "\SAT_GETAFE\archivostxt\" & archivo, vbNormalFocus)
On Error Resume Next

Posdata : parte del código se lo tengo que agradecer a un experto del foro