object_workbook.exportasfixedformat xltypepdf, fullfilenamenya masih ada input parameter lainnya yang bisa di eksplorasi sendiri agar sesuai kebutuhan.
Wassalam, Kid. On Thu, Jul 10, 2014 at 12:48 PM, Odhy [email protected] [belajar-excel] <[email protected]> wrote: > > > 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 StringDim MyFileName As > String* > > > > > > > > > > > > > > > > > > *Call BukaSemuaMyFileName = "Hasil Pemeriksaan fisik_" & > Sheets("fisik").Range("E7").Value & "_" & Format(Date, "ddmmyyyy") If Not > Right(MyFileName, 4) = ".xlsx" Then MyFileName = MyFileName & > ".xlsx"Sheets("fisik").ActivateSheets("FISIK").CopyWith > 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 WithNextCode:With > ActiveWorkbook .SaveAs Filename:=MyPath & MyFileName, > CreateBackup:=False .Close FalseEnd WithEnd Sub* > > > Terima Kasih atas pencerahannya, > > > > Odhy. > > >
