
Originariamente inviata da
genespos
Il suggerimento di evitare il select è ottimo!
In ogni caso, potresti anche provare ad usare
codice:
Application.ScreenUpdating = False
ok ok scusami ho letto in ritardo
ho modificato cosi seguendo indicazioni dal web.. pare funzionare
codice:
Sub stampa()
'
' stampa Macro
'
'
Application.ScreenUpdating = False
If Application.Dialogs(xlDialogPrinterSetup).Show Then
Sheets(Array("INTESTAZIONE", "PRIMA PAGINA", "DATI STAMPA", "PESO RILEVATO", _
"MASSA CORP", "BMI", "PROIEZ PESO", "WHRT", "RAPP E COSTITUZIONE", "SOMATOMETRIA")).PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If
Application.ScreenUpdating = True
End Sub