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
Bookmarks