stampare in due stampanti

Sub Stampa()
Dim avviso As String

Application.ScreenUpdating = False
    
    
'-----------------------------------------
'stampante 1 ok 

    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWindow.SelectedSheets.PrintPreview
'-----------------------------------------
'stampante 2 nuova stampante
    
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWindow.SelectedSheets.PrintPreview
'-----------------------------------------

         
       
    Application.ScreenUpdating = True
    
End Sub