
Sub Stampa_fogli()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
If ws.Range("A3") = "ciao" Then '<---TUO VALORE in A3
''<<--- qui la stampa
MsgBox "stampa in corso "
End If
Next ws
End Sub |
Sub Stampa_fogli()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
If ws.Range("A3") = "ordinare" Then
ws.PrintOut
End If
Next ws
End Sub
|
