Tanya Auto Convert & auto save to PDF

  1. 6 tahun lalu

    Dear Master,

    Mohon dibantu untuk script tersebut sudah running, tapi tidak tersave otomatis, kurang nya dimana y, mohon petunjuk

    Sub RoundedRectangle3_Click()
    On Error Resume Next
        MkDir ThisWorkbook.Path & "\SIMPAN SEBAGAI PDF\"
        On Error GoTo 0
       
    NamaFile = "Laporan Tracking ID " & Sheets("Print to PDF").Range("c7") & " Pickup Tanggal " & Sheets("Print to PDF").Range("c8")
    If Sheets("Print to PDF").Range("c7") = "" Then
    MsgBox "File Harus Diberi Nama Untuk Menyimpan !", vbCritical, "Gagal Menyimpan"
    Exit Sub
    Else
        With ThisWorkbook.ActiveSheet
            fName = NamaFile ' akan jadi nama file
        End With
        '
        'mengexport sheet jadi pdf
    Sheets("Print To PDF").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
          Filename:=sFile, Quality:=xlQualityStandard, _
          IncludeDocProperties:=True, IgnorePrintAreas:=False, _
          OpenAfterPublish:=True
    
    
    MsgBox "File " & NamaFile & ".pdf berhasil disimpan di folder SIMPAN SEBAGAI PDF", vbInformation, "Convert To PDF"
    End If
    End Sub

  2. Di sunting 6 tahun lalu oleh manweljs_

    @kamalhusein83

    coba edit :

    .....
     With ThisWorkbook.ActiveSheet
            fName = ThisWorkbook.Path & "\SIMPAN SEBAGAI PDF\" & NamaFile ' <--- yang ini
        End With
        '
        'mengexport sheet jadi pdf
    Sheets("Print To PDF").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
          Filename:=fName, Quality:=xlQualityStandard, _ '   <--- yang ini
          IncludeDocProperties:=True, IgnorePrintAreas:=False, _
          OpenAfterPublish:=True
    .....

    bisa gak?

  3. Dear Senior,

    gagal running dgn notif terlampir

  4. Di sunting 6 tahun lalu oleh manweljs_

    @kamalhusein83

    format tanggalnya jangan dd/mmmm/yyyy. pokoknya jangan ada (/)

    kalau gak mau merubah format tanggal pada C8 maka edit NamaFile menjadi :

    ...
    NamaFile = "Laporan Tracking ID " & Sheets("Print to PDF").Range("c7") & " Pickup Tanggal " & Format(Sheets("Print to PDF").Range("c8"),"dd mmmm yyyy")
    ...

    oh iya, C7 nya juga jangan ada karakter khusus ya

    kira-kira demikian

  5. untuk Range("c8") = tanggal kemarin bagaimana ya, karena jika delete, bisa run, tapi jika ditambahkan error lagi, c8 sendiri =today()-1, mohon arahannya, terima kasih

  6. Di sunting 6 tahun lalu oleh manweljs_

    @kamalhusein83

    Sudah coba skrip diatas?

  7. sudah, tetap g bisa?

  8. hmmmm..

    @kamalhusein83

    anda tidak menyebutkan kalau formatnya sudah dibuat TEXT pada formula. jika demikian kembalikan sj skrip awalnya namun ambil nilainya sebagai value atau text :

    NamaFile = "Laporan Tracking ID " & Sheets("Print to PDF").Range("c7") & " Pickup Tanggal " & Sheets("Print to PDF").Range("c8").value '<-- atau .text

  9. ok, thx, sdh running

 

atau Mendaftar untuk ikut berdiskusi!