Salve a tutti, avrei bisogno di un vostro aiuto, ecco il mio problema:
Ho un foglio con un elenco a discesa e questa macro:
Sub STAMPA_TUTTE()
' RISCHIO_TUTTE Macro
' Macro registrata il 14/02/2011
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
MsgBox "Stampa Cancellata"
Exit Sub
End If
Dim max
max = Range("numax").Value
For i = 1 To max
Range("scelta").Value = Range("rischio").Cells(i, 1).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
End Sub
Macro non mia ma copiata qua e la in giro, in pratica mi stampa tutti i nominativi dall'elenco a discesa in diversi files (chiaramente impostando la stampante PDF che mi chiede all'inizio)
Ecco vorrei che mi stampasse i files in un unico file PDF.
Qualche idea?
Grazie anticipatamente.