Hello to all,
How can I change the macro attached because print the sheet into two printers?


Sub Stampa()
Dim avviso As String

Application.ScreenUpdating = False
    
    'If Foglio1.Range("E6") = 0 Then
    'avviso = MsgBox("non c'è niente da stampare!", _
    'vbExclamation + vbOK + vbDefaultButton2, "AVVISO")
    'Exit Sub
       
    'Else
    
'-----------------------------------------
'printer 1 ok this

    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWindow.SelectedSheets.PrintPreview
'-----------------------------------------
'printer 2 new printer
    
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWindow.SelectedSheets.PrintPreview
'-----------------------------------------

        
    'End If
       
    Application.ScreenUpdating = True
    
End Sub
max_max