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]" <[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]
<mailto:[email protected]> [belajar-excel]
<[email protected] <mailto:[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.
