di Tequi » 24/08/12 13:16
Ciao Flash,
intanto grazie per il benvenuto e per la dritta.
ho fatto come mi hai consigliato,pero' mi stampa un casino di pagine
sicuro sbaglio da qualche parte
------------------------------------------------------------------------------------------------------------------------------
Sub StampaF()
Set Ws1 = Worksheets("Home")
UR = Ws1.Range("B" & Rows.Count).End(xlUp).Row
For RR = 2 To UR
If Ws1.Range("G" & RR).Value > 0 Then
RCS = Ws1.Range("B" & RR).Value
Worksheets("RCS").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next RR
Ws1.Select
End Sub
---------------------------------------------------------------------------------------------------------------------------------------------------
vedi come prima pagina é chiamata Home nella quale c' é l 'elenco poi ho cambiato le colonne di ricerca e via una raffica di stampe hehehe