Dear Master,
saya mempunyai code vba berikut untuk export file menjadi file baru dengan
extensi yang sama *.xlsx.
Saya ingin saya tanyakan yaitu kalau export file baru tersebut ke bentuk PDF
bagaimana ?
berikut code vba yang saya pakai :
Private Sub CommandButton15_Click()
Dim MyPath As String
Dim MyFileName As String
Call BukaSemua
MyFileName = "Hasil Pemeriksaan fisik_" & Sheets("fisik").Range("E7").Value &
"_" & Format(Date, "ddmmyyyy")
If Not Right(MyFileName, 4) = ".xlsx" Then MyFileName = MyFileName & ".xlsx"
Sheets("fisik").Activate
Sheets("FISIK").Copy
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = "" '<~~ The start folder path for the file picker.
If .Show <> -1 Then GoTo NextCode
MyPath = .SelectedItems(1) & "\"
End With
NextCode:
With ActiveWorkbook
.SaveAs Filename:=MyPath & MyFileName, CreateBackup:=False
.Close False
End With
End Sub
Terima Kasih atas pencerahannya,
Odhy.
