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
| Trasferimento dati sparpagliati da foglio1 a foglio2 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 7 |
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
| programma convertitore e taglia file video e audio Autore: gianscooby |
Forum: Audio/Video e masterizzazione Risposte: 3 |
Visitano il forum: Nessuno e 36 ospiti