Save as PDF

  1. minggu lalu

    suhu sekalian, saya memiliki keinginan untuk membuat macro tombol save as pdf dengan syarat berikut
    1.file selalu bisa di save ke folder yang diinginkan
    2.file bisa langsung diberi nama saat melakukan save as

    untuk save to pdfnya sudah bisa dengan menggunakan

    Sub tes()

    Selection.ExportAsFixedFormat Type:=x1typepdf, openafterpublish:=True

    End Sub

    saya bingung untuk syarat yang saya mau itu harus pake script seperti apa

  2. Caton

    Nov 24 Terverifikasi Indonesia + 17.741 Poin

    @raibarong...

    Pertama, gunakan fungsi Application.GetSaveAsFilename untuk menentukan lokasi dan nama filenya. Jika nama telah ditentukan, baru simpan dokumen PDF tersebut. Contoh:

    Sub Test
    Dim vFN As Variant
    
    vFN = Application.GetSaveAsFilename( _
    FileFilter:= "Portable Document (*.pdf), *.pdf", _
    Title:="Simpan dokumen sebagai...", _
    InitialFileName:=Thisworkbook.Path & "\namadokumen.pdf")
    
    If vFN <> False Then
       Selection.ExportAsFixedFormat _
          Type:=xlTypePDF, _
          FileName:=vFN, _
          OpenAfterPublish:=True
    End If
    
    End Sub

    Demikian.

  3. @Caton @raibarong...

    Sub Test
    Dim vFN As Variant
    
    vFN = Application.GetSaveAsFilename( _
    FileFilter:= "Portable Document (*.pdf), *.pdf", _
    Title:="Simpan dokumen sebagai...", _
    InitialFileName:=Thisworkbook.Path & "\namadokumen.pdf")
    
    If vFN <> False Then
       Selection.ExportAsFixedFormat _
          Type:=xlTypePDF, _
          FileName:=vFN, _
          OpenAfterPublish:=True
    End If
    
    End Sub

    Demikian.

    berjalan dengan sempurna, dan kalo mau saveas ke format lain tinggal ganti formatnya.. makasih master @Caton

 

atau Mendaftar untuk ikut berdiskusi!