'ripristino la vecchia stampante
ActivePrinter = s
End Sub
premesso che ho fatto un copia incolla del codice proposto ma nulla succede.
Qui ci diamo del tu, grazie.
Se non gli dici di stampare....
If ActivePrinter <> s Then
'stampo
ActiveSheet.PrintOut '<<====
End If
Non ricordo in risposta quale domanda avevo postato quel codice ma presumo fosse implicito che si dovesse inserire la sequenza di stampa al posto di quello 'stampo .