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
scrivere una parola in ComboBox e caricarla filtrando i dati Autore: ricky53 |
Forum: Applicazioni Office Windows Risposte: 3 |
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
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 |
Visitano il forum: Anthony47 e 42 ospiti