RogerJordi
Gebruiker
- Lid geworden
- 21 mrt 2019
- Berichten
- 19
Goedemorgen allemaal,
Ik maak momenteel gebruik van de volgende code en die werkt..... maar nu worden alle tabbladen in een PDF bestand gezet, nu wil ik eigenlijk alleen specifiek tabblad opslaan als PDF, zou iemand mij hiermee kunnen helpen? De code ziet er als volgt uit:
Met vriendelijke groet,
Roger
Ik maak momenteel gebruik van de volgende code en die werkt..... maar nu worden alle tabbladen in een PDF bestand gezet, nu wil ik eigenlijk alleen specifiek tabblad opslaan als PDF, zou iemand mij hiermee kunnen helpen? De code ziet er als volgt uit:
Code:
Sub Send_MailRoger()
Dim PDFnaam As String
Dim OutApp As Object
Dim OutMail As Object
PDFnaam = "G:\Algemeen\Transport orders\PDF\" & _
Range("K12") & " " & _
Range("D7") & " " & _
Range("D23") & " " & _
Range("C16") & " - " & _
Range("C21") & ".pdf"
ActiveWorkbook.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=PDFnaam, _
OpenAfterPublish:=False 'Of False om het document niet te openen
ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
Collate:=True, _
IgnorePrintAreas:=False
Met vriendelijke groet,
Roger