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 Sub
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 7 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Modifica visualizzazione file di una cartella Autore: mastino46 |
Forum: Sistemi Operativi Windows Risposte: 2 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 46 ospiti