Biljartbal100
Gebruiker
- Lid geworden
- 1 aug 2019
- Berichten
- 7
Hoi,
Ik heb de volgende code in een excel werkmap staan voor het opslaan van twee tabbladen naar een PDF. Alles gaat goed ik zou alleen graag willen dat na het uitvoeren van de code de tabbladen gedeselecteerd worden.
Sub PDFSPLR()
Dim FacName As String
FacName = ActiveSheet.Range("N3").Value
If Dir("C:\Users\Werner\Desktop\Net Nie" & FacName & ".pdf") <> "" Then
MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
Exit Sub
Else
Sheets(Array("Stand", "RsltPSplr")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="C:\Users\Werner\Desktop\Net Nie" & FacName & ".pdf", _
openafterpublish:=False, ignoreprintareas:=True
End If
End Sub
Alvast mijn dank!
Gr. Biljartbal100
Ik heb de volgende code in een excel werkmap staan voor het opslaan van twee tabbladen naar een PDF. Alles gaat goed ik zou alleen graag willen dat na het uitvoeren van de code de tabbladen gedeselecteerd worden.
Sub PDFSPLR()
Dim FacName As String
FacName = ActiveSheet.Range("N3").Value
If Dir("C:\Users\Werner\Desktop\Net Nie" & FacName & ".pdf") <> "" Then
MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
Exit Sub
Else
Sheets(Array("Stand", "RsltPSplr")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="C:\Users\Werner\Desktop\Net Nie" & FacName & ".pdf", _
openafterpublish:=False, ignoreprintareas:=True
End If
End Sub
Alvast mijn dank!
Gr. Biljartbal100
Laatst bewerkt: