Ameliasiemens45
Gebruiker
- Lid geworden
- 10 mei 2012
- Berichten
- 31
Beste forummers,
Ik heb volgende code :
Deze code werkt perfect wanneer ik de huidige pagina wil opslaan als PDF.
Vraag is nu : kan ik zo'n code ook gebruiken als ik een andere sheet (vanuit de active sheet) wil laten opslaan als PDF ? Bijvoorbeeld agina drie "Alu" ?
Bedankt !
Ik heb volgende code :
Code:
Sub Macro1()
Dim sFile As String
sFile = "X:\docs\" & ActiveSheet.Range("C10").Text & ".pdf"
If Len(Dir(sFile)) Then
If MsgBox("Reeds opgeslaan onder deze naam", vbOKOnly) = vbOK Then Exit Sub
'If MsgBox("File exists; overwrite?", vbYesNo) = vbNo Then Exit Sub
End If
ActiveSheet.ExportAsFixedFormat _
FileName:=sFile, _
Type:=xlTypePDF, _
OpenAfterPublish:=False, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False
End Sub
Deze code werkt perfect wanneer ik de huidige pagina wil opslaan als PDF.
Vraag is nu : kan ik zo'n code ook gebruiken als ik een andere sheet (vanuit de active sheet) wil laten opslaan als PDF ? Bijvoorbeeld agina drie "Alu" ?
Bedankt !