grano.b
00martedì 17 maggio 2016 14:01
salve a tutti qualche tempo fa grazie anche al vostro aiuto sono riuscito a fare questo codice per creare pdf:
Sub SalvaPDF()
'
'
With ActiveWorkbook
If .Path = "" Then Exit Sub
pdfFile = .Path & "\" & Left(.Name, InStr(.Name, ".") - 1) & ".pdf"
End With
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFile _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("B1").Select
End Sub
una volta lanciato il codice crea un file pdf con n fogli impostati nell'area di stampa,
è possibile creare 1 file pdf per ogni foglio dando come nome il riferimento a una cella del foglio?
vi allego un esempio dove c'è il foglio fat con 3 pagine in area di stampa, io vorrei creare 3 file pdf nominati con il contenuto della cella h1, per il primo file, h51 per il secondo e h 101 per il terzo file, e possibile secondo voi?
raffaele1953
00martedì 17 maggio 2016 15:02
Le tre formule in h1, h51, h101 le cambierei in
=CONCATENA(ANNULLA.SPAZI(A3);"_";ANNO(H4);"_";MESE(H4))
Questo il codice per tre (solo se le righe rimangono 50 per ognuno)
Sub SalvaPDF()
Dim X, N, NomeFile, Percorso
N = 1
Percorso = ThisWorkbook.Path
For X = 1 To 3
NomeFile = Percorso & "\" & Cells(N, 8) & ".pdf"
Range(Cells(N, 9), Cells(N + 49, 9)).ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomeFile _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
N = N + 50
Next X
End Sub
grano.b
00venerdì 20 maggio 2016 14:02
Ciao Raffaele
intanto ti ringrazio per l'aiuto,
devo solo lavorarci un attimo per adattare il codice ai miei file (per adesso ho solo cambiato l'area di stampa "Range(Cells(N, 1), Cells(N + 49, 9))
poi ti farò sapere...
grazie