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