Goedemorgen,
Ik ben op zoek naar een Macro voor liggend printen. Ik heb ondertussen het een en ander geprobeerd om tussen de huidige Macro te krijgen, maar op de een of andere manier lukt het mij niet. Momenteel maak ik gebruik van de huidige Macro. Eerlijkheidshalve heb ik deze "geleend" en aangepast naar mijn eigen eisen.
Sub PDF()
Dim Offname As String
Offname = ActiveSheet.Range("AA2").Value
If Dir("H:\Kantoor\Offerte derden\2021\" & Offname & ".pdf") <> "" Then
MsgBox "Het bestand: " & Offname & ".pdf bestaat reeds"
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="H:\Kantoor\Offerte derden\2021\" & Offname & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
End If
End Sub
Alvast bedankt voor de hulp