Verzenden als PDF

[rvdvalk]

Ik heb een macro gemaakt voor het verzenden als PDF, echter werkt dit maar een maal.
Als ik de macro de volgende keer uitvoer wordt het bestand opgeslagen als xlsx ipv. PDF

Iemand enig idee hoe dit kan?

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\bezoekersrapport\Bezoekersrapport.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
End Sub

 

[HWV]

Beste,

misschien een idee om hier even te kijken

http://www.rondebruin.nl/pdf.htm

Groet HWV

 

[rvdvalk]

Beste,

misschien een idee om hier even te kijken

http://www.rondebruin.nl/pdf.htm

Groet HWV

Bedankt. Hiermee is het helemaal goed gekomen.

Rutger