martindeboer1988
Gebruiker
- Lid geworden
- 5 nov 2016
- Berichten
- 93
Hallo allemaal.
Ik zit met onderstaande uitdaging ik heb in Excel via VBA een uitvoer naar PDF van een bepaald cellenbereik gemaakt.
Nu is het PDF document wat uitgevoerd word een hele aparte afmeting terwijl de officiële PDF documenten A4 zijn.
De uitdaging is hoe krijg ik het cellenbereik goed op een A4 formaat.
De print area's zijn naar mijn idee goed ingesteld.
Ik zit met onderstaande uitdaging ik heb in Excel via VBA een uitvoer naar PDF van een bepaald cellenbereik gemaakt.
Nu is het PDF document wat uitgevoerd word een hele aparte afmeting terwijl de officiële PDF documenten A4 zijn.
De uitdaging is hoe krijg ik het cellenbereik goed op een A4 formaat.
De print area's zijn naar mijn idee goed ingesteld.
Code:
Private Sub CommandButton1_Click()
Dim FacName As String
MsgBox "Het PDF bestand word aangemaakt en opgeslagen in de map Filing"
'De macro haalt met deze opdracht gegevens op in het document, om deze later als naam voor het PDF-bestand te gebruiken.
FacName = ActiveSheet.Range("E22").Value & ".pdf"
'De folder waarin het bestand moet worden opgeslagen
Map = "C:\Users\mdboer\Downloads\"
If Dir(Map, vbDirectory) = "" Then
MsgBox "De folder " & Map & " bestaat niet"
Exit Sub
End If
'Een controle om geen bestaand PDF-bestand te overschrijven.
If Dir(Map & FacName) <> "" Then
MsgBox "Het bestand: " & FacName & " bestaat reeds"
Else
On Local Error GoTo Fout
Sheets("PDF_reparatie_HS").Range("A5:I35").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Map & FacName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox "Het bestand: " & FacName & " is opgeslagen"
Exit Sub
End If
Fout:
MsgBox "Het bestand: " & FacName & " kon helaas niet opgeslagen worden vanwege een fout."
End Sub