Dear Para Master, Mohon bantuannya untuk case saya ini......
Terima Kasih atas pencerahannya, Odhy. On Thursday, July 10, 2014 4:39 PM, "Odhy [email protected] [belajar-excel]" <[email protected]> wrote: Dear Mr. Kid, sy belum paham Mr. Kid Mohon pencerahannya.. Terima Kasih atas pencerahannya, Odhy. On Thursday, July 10, 2014 4:25 PM, "'Mr. Kid' [email protected] [belajar-excel]" <[email protected]> wrote: 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 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.
