Scusami Sara ma hai provato a "ricreare" l'attestato in Excel azzerando i margini?
Permane ugualmente il bordino?
Moderatori: Anthony47, Flash30005
Sub Macro1()
Dim i As Long
Dim ur As Long
Dim myPath As String
myPath = "c:\sara\"
ur = Worksheets("dati").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ur
Worksheets("Report").Range("P1").Value = i - 1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myPath & Worksheets("Report").Range("E8").Value & " " & Worksheets("Report").Range("E12").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next i
End SubTorna a Applicazioni Office Windows
| Proteggere file calendario con filtri fissi Autore: Cedamido1 |
Forum: Applicazioni Office Windows Risposte: 2 |
| How to Fix Excel Freezing When Opening Large Files on Window Autore: olalaleon |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 26 ospiti