Opslaan pdf twee sheets

[Bertus78]

Nu heb ik nog een vraag......

Ik wil twee sheets opslaan als 1 pdf bestand.
Als het mogelijk is wil ik dat hij vraagt waar hij die wil opslaan.

Ik heb dit

ActiveWorkbook.Sheets(Array("Blad1", "Blad2")).ExportAsFixedFormat TypePDF, padnaam & sbnaam & ".pdf"

Maar dat werkt helemaal niet.

 

[edmoor]

Bijvoorbeeld:

Sub SavePDF()
    sbnaam = "Naam van de PDF"
    padnaam = GetFolder()
    If padnaam <> "" Then
        ThisWorkbook.Sheets(Array("Blad1", "Blad2")).Select
        ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=padnaam & "\" & sbnaam, _
            OpenAfterPublish:=True [COLOR="#008000"]'Zet deze op False om de PDF niet te openen[/COLOR]
    End If
End Sub

Function GetFolder() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Selecteer een folder"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show = -1 Then sItem = .SelectedItems(1)
    End With
    GetFolder = sItem
    Set fldr = Nothing
End Function

 

[Bertus78]

Deze zin word dan geel en stopt

   padnaam = GetFolder()

 

[edmoor]

Je hebt toch wel die functie erbij gezet?

 

[Bertus78]

Nee dat had ik niet, nu werkt het wel....

Maar het is een nieuwe blok....
Ik heb geleerd dat je onder end sub niks meer kan zetten wat bij dat blok hoort.
hoe kan het dat hij dit nu wel oppakt?

 

[edmoor]

Onder End Sub kan je geen uitvoerbare opdrachten zetten.
Wel een volgende Sub of, In dit geval, een Function.

Nu zie je dus dat deze regel:

padnaam = GetFolder()

de functie aanroept en het gekozen pad in de variabele padnaam zet.

 

[Bertus78]

O oke, weer wat geleerd,

BEDANKT SUPER

:thumb: