NAH INI....., saya gak tau Mr..... Yang pasti selama ini kalau saya mau SaveAs file excel ke file pdf saya harus tekan Ctrl+P. Seolah-olah mau printout gitu..
Tapi kayaknya sih udah terinstall deh Mr Toby... Salam, DD From: Toby kenzo tobyke...@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 22 Juni 2015 10:15 To: belajar-excel@yahoogroups.com Subject: Re: RE: [belajar-excel] SaveAs file pdf sudah install SavePdfandXPS nya.. Sent from Yahoo Mail on Android <http://overview.mail.yahoo.com/mobile/?.src=Android> _____ From: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com>; To: <belajar-excel@yahoogroups.com>; Subject: RE: [belajar-excel] SaveAs file pdf Sent: Mon, Jun 22, 2015 3:07:35 AM Dear Mr Toby, Office 2007 Mr.... Salam, DD From: Toby kenzo tobyke...@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 22 Juni 2015 10:02 To: belajar-excel@yahoogroups.com Subject: Bls: [belajar-excel] SaveAs file pdf Dear DD, Pake Office berapa..? TerimaKasih. Pada Senin, 22 Juni 2015 8:49, "Dede pmaho_l...@nabatisnack.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis: Dear Be Exceller, Mohon bantuan dan koreksi atas script warna merah dbi : Private Sub CommandButton1_Click() Dim a As String a = Sheet4.Range("b3").Value Dim p As String p = Sheet4.Range("s2").Value ‘Cell nama file Dim m As String m = Sheet2.Range("g2").Value ‘Cell nama file On Error Resume Next Worksheet.Active ActiveSheet.Unprotect Password:="a" Range("A3:B3").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A6").Select Sheet5.Visible = True SheetVisible = Sheets("Persetujuan Pemusnahan BS").Visible = True Sheets("Persetujuan Pemusnahan BS").Select Range("B4:D4").Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("B4:D4").Select 'Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=True, Transpose:=True 'Application.CutCopyMode = False Range("a6").Select ActiveWorkbook.Save ChDir _ "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian" ActiveWorkbook.SaveAs Filename:= _ "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & a & ".xlsb" _ , FileFormat:=xlExcel12, CreateBackup:=False ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Sheets("Monitoring BS").Select ChDir _ "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian" ActiveWorkbook.SaveAs Filename:= _ "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & p & ".pdf" _ , FileFormat:=xlExcel12, CreateBackup:=False ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Sheets("Persetujuan Pemusnahan BS").Select ChDir _ "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian" ActiveWorkbook.SaveAs Filename:= _ "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & m & ".pdf" _ , FileFormat:=xlExcel12, CreateBackup:=False ActiveWindow.Close Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.Save ActiveWindow.Close End Sub Script merah saya dapat dengan copy paste record makro yang bertujuan untuk SaveAs ke file pdf, dengan lokasi penyimpanan file di "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\Persetujuan Pemusnahan BS.pdf" dan satu file lagi dengan nama file “Monitoring BS.pdf” dilokasi yang sama. Masalah yang muncul adalah pada saat saya klik commandbutton tersebut hanya file excelnya saja yang terSaveAs otomatis, sedangkan kedua file pdf tidak. Mohon solusinya. Salam, Dede Sulaeman Logistic Staff PT. Pinus Merah Abadi _____ This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
