Range da salvare in PDF

Sub SalvaPDFReport()
    Dim ws As Worksheet
    Dim strIndirizzo As String
    Dim myFile As Variant
    Dim strFile As String
    Dim nome As String
    Dim i As Integer
    
    On Error GoTo errHandler
     
    Set ws = ActiveSheet
     
 For i = 3 To 5 Step 1
    ' La i varia da 3 a 542, per il momento non metto i valori
    ' giusti per evitare di far girare tutto il ciclo
    
    Worksheets("Tabelle dati").Range("C8") = Worksheets("Elenco Aziende").Range("B" & i)
     
    Worksheets("Report").Activate
            
     ' seleziono l'area
   Range("A1:R225").Select

    Worksheets("Tabelle dati").Select
    nome = Range("C1").Value & " " & "-" & " " & Range("C8").Value
         
    Worksheets("Report").Activate
    Range("A1:R225").Select
     
     
    'apre la finestra di dialogo per il salvataggio dei file
    'la cartella di default è la stessa della cartella di excel
    strFile = Replace(nome, " ", " ") _
           '  & "_" _
           ' & Format(Now(), "yyyy-mm-dd_hh-mm") _
            & ".pdf"
   ' strFile = ThisWorkbook.Path & "" & strFile
     
    myFile = Application.GetSaveAsFilename _
            (InitialFileName:=strFile, _
              FileFilter:="PDF Files (*.pdf), *.pdf", _
              Title:="Seleziona la cartella e inserisci il nome del file da salvare")
     
    If myFile <> False Then
            ws.ExportAsFixedFormat _
              Type:=xlTypePDF, _
              Filename:=myFile, _
              Quality:=xlQualityStandard, _
              IncludeDocProperties:=True, _
              IgnorePrintAreas:=True, _
              OpenAfterPublish:=False
     
    End If
Next i
exitHandler:
            Exit Sub
errHandler:
            MsgBox "Non ho potuto salvare il file PDF"
    Resume exitHandler
    
End Sub
[Modificato da Galli93 25/06/2018 17:01]