• 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.

PDF macro, maar niet active sheet

Status
Niet open voor verdere reacties.

Ameliasiemens45

Gebruiker
Lid geworden
10 mei 2012
Berichten
31
Beste forummers,

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 :pagina drie "Alu" ?


Bedankt !
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan