Veo que estás trabajando con Excel como referencia y el ejemplo que yo puse era creando el Objeto.
Con este código no sale el mensaje de guardar los cambio, unicamente el mensaje de Imprimiendo.
Código:
Dim oExcel As Excel.Application
Set oExcel = New Excel.Application
With oExcel
.Workbooks.Open List1.Text
.Sheets("NombreHoja").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End With
Set oExcel = Nothing