werkblad opslaan als pdf

[Ben]

Hallo,

Heb een probleem met het opslaan naar pdf, deze gebruik ik nu en werkt.

Sub PDFuitprinten()
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\,,,,,,,,,,,,,\" & Range("D9").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub


Mijn vraag is:
dit is de gehele werkmap met alle bladen, ik wil echter dat blad 1 niet wordt verwerkt naar het pdf bestand.
hoe kan ik dit aanpassen.

goetjes Ben

 

[Timshel]

Misschien zo:

Sub NaarPDF()
    Sheets(Array("Blad2", "Blad3", "Blad4")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\..........\" & Range("D9").Value & ".pdf", _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[HSV]

Je kan ook tijdelijk blad1 verbergen.

Sub pdfje()
 Sheets("Blad1").Visible = False
 ThisWorkbook.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Sheets(1).Range("D9").Value & ".pdf"
 Sheets("Blad1").Visible = True
End Sub

 

[Ben]

dank je wel allemaal,
het probleem is met jullie hulp opgelost.