Dear Para Master, Kalo di sisipkan di code yg sudah sy tulis, kira2 bagaimana code, disisipkan dimana mohon bantuannya....
Terima Kasih atas pencerahannya, Odhy. On Saturday, July 12, 2014 6:25 PM, "Aksan Kurdin [email protected] [belajar-excel]" <[email protected]> wrote: coba google dengan kata kunci: object_workbook.exportasfixedformat xltypepdf pasti akan banyak contoh yang keluar, salah satunya: http://msdn.microsoft.com/en-us/library/office/ff198122(v=office.15).aspx aksan kurdin On 7/12/2014 1:40 PM, Odhy [email protected] [belajar-excel] wrote: >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]" mailto:[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]" mailto:[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. > > > > >
