• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel als pdf opslaan

Status
Niet open voor verdere reacties.
S

schilderehbo

Gebruiker
Lid geworden
21 dec 2015
Berichten
146
Ik heb de volgende macro
Code: 
Sheets("Factuur").Select
    strNaam = Range("G15").Value & " " & Range("C14").Value
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="D:\schilders\2018" & strNaam & ".xltm", _
    FileFormat:=xlOpenXMLTemplateMacroEnabled, Password:="", WriteResPassword _
    :="", ReadOnlyRecommended:=False, CreateBackup:=False
    Application.DisplayAlerts = True
    Application.DisplayAlerts = False
    ActiveSheet.ExportAsFixedFormat xlTypePDF, "D:\Schilders\2018\2018 PDF" & strNaam & ".pdf"
    Workbooks.Open Filename:= _
    "D:\Schilders\2018\Schilders.xlsm", Editable:=True
    Application.DisplayAlerts = True
    Windows(strNaam & ".xltm").Close saveChanges:=False
    Sheets("Start").Select
Nu heb ik nog een blad die ik wil toevoegen aan het pdf bestandje en dat is het blad genaamd Weekoverzicht hoe voeg ik die toe ?

alvast bedankt
 
Laatst bewerkt:
Verberg de bladen die je niet in de pdf wil, exporteer je werkboek, en maak ze aan het van de code weer zichtbaar.

Hier worden blad1 en blad2 tijdelijk verborgen
Code: 
sub hsv()
dim sh as worksheet
sheets(array("blad1", "blad2")).visible = false
 thisworkbook.ExportAsFixedFormat [COLOR=#3E3E3E]xlTypePDF,[/COLOR] [COLOR=#3E3E3E]"D:\Schilders\2018\2018 PDF" & strNaam[/COLOR]
  for each sh in sheets(array("blad1", "blad2"))
    sh.visible = true
   next sh
end sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan