[paky89]

Salve ho creato un file excel con una tabella per i turni con una macro che mi consente da una di inserire la data d'inizio e la data di fine è in automatico mi stampa i fogli..funziona tutto bene solo che non so perche nella stampa del fil pdf la tabella non si vede bene come mai?

Turni_2_5.pdf (stampato con la macro)
0.45.pdf (stampa normale)

Sub GeneraFile()
Dim Inizio As String, Fine As String, i As Long
Dim Percorso As String, Nome As String


Inizio = InputBox("Inserire data di inizio", "Inizio...", Date)
Fine = InputBox("Inserire data di termine", "...Fine", Date)


Percorso = ThisWorkbook.Path & "\"


If Not IsDate(Inizio) Or Not IsDate(Fine) Then
    MsgBox "gg/mm"
    Exit Sub
End If


For i = CDate(Inizio) To CDate(Fine) Step 7
    ActiveSheet.Range("E1") = i
    ActiveSheet.Range("G1") = i + 6
    
    Nome = "Turni_" & WorksheetFunction.WeekNum(i) & ".pdf"
    
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=Percorso & Nome
Next
End Sub