Odhy ... Excel 2010 bisa langsung Save as type: PDF
On Monday, July 14, 2014 9:23 PM, "Odhy [email protected] [XL-mania]" <[email protected]> wrote: Dear Master, saya mempunyai code vba berikut untuk export file menjadi file baru dengan extensi yang sama *.xlsx. Yang 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.
