Terima kasih Pak Anton Kodenya sudah saya ganti dengan kode revisi yang terakhir bapak kirimkan. Dan berhasil sesuai dengan keinginan saya.
Sekali lagi terima kasih banyak. Salam Teguh ________________________________ From: summonery <[email protected]> To: [email protected] Sent: Fri, June 3, 2011 10:55:50 AM Subject: [belajar-excel] Re: Tombol cetak semua kedalam 1 file pdf. coba, Sub Print_To_PDF() 'anton suryadi 3/Juni/2011 'http://tech.groups.yahoo.com/group/belajar-excel/message/10723 Dim x As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False n = InputBox("satu sampai dengan berapa?") If n = "" Then End For i = 1 To n With ActiveSheet .Copy After:=ActiveSheet End With With ActiveSheet .Name = "numero" & i .Range("K9").Value = i End With Next i For Each x In Worksheets If InStr(x.Name, "numero") <> 0 Then x.Select (False) End If Next x Macro1_PDF_Excel2007 ActiveWindow.SelectedSheets.Delete Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Sub Macro1_PDF_Excel2007() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:NamaFile.pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub >semoga bermanfaat --- In [email protected], kusdianto teguh <teruri2000@...> wrote: > > Terima kasih atas kepeduliannya terhadap saya. > Saya sudah mencobanya dan berhasil, namun lembaran-lembaran tersebut berisi >satu > record yang sama. > Saya menginginkan lembaran-lembaran yang tercetak berisi semua record yang ada. > > Dalam contoh tersebut ada 13 lembar daftar nilai jika input box diisi nomor 1 > s.d 13. > > Terima kasih sudah membantu saya. > > Salam > > Teguh > > > > > > ________________________________ > From: summonery <summonery@...> > To: [email protected] > Sent: Fri, June 3, 2011 9:25:25 AM > Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF > beserta kodenya/macro. > > > coba, > > Sub Print_To_PDF() > 'anton suryadi 3/Juni/2011 > 'http://tech.groups.yahoo.com/group/belajar-excel/message/10723 > Dim x As Worksheet > Application.ScreenUpdating = False > Application.DisplayAlerts = False > n = InputBox("satu sampai dengan berapa?") > If n = "" Then End > For i = 1 To n > With ActiveSheet > .Copy After:=ActiveSheet > End With > ActiveSheet.Name = "numero" & i > Next i > For Each x In Worksheets > If InStr(x.Name, "numero") <> 0 Then > x.Select (False) > End If > Next x > Macro1_PDF_Excel2007 > ActiveWindow.SelectedSheets.Delete > Application.ScreenUpdating = True > Application.DisplayAlerts = True > End Sub > > Sub Macro1_PDF_Excel2007() > ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ > "D:NamaFile.pdf", Quality:= _ > xlQualityStandard, IncludeDocProperties:=True, >IgnorePrintAreas:=False, > _ > OpenAfterPublish:=True > End Sub > > > >semoga bermanfaat > > --- In [email protected], kusdianto teguh <teruri2000@> wrote: > > > > Terima kasih sudah membantu saya. > > Saya sudah mencobanya dan berhasil, namun hanya 1 lembar saja, > > saya menginginkan sekali klik tombol cetak, langsung tercetak 13 lembar >sesuai > > > dengan jumlah murid. > > > > Terima kasih. > > > > > > > > > > > > ________________________________ > > From: summonery summonery@ > > To: [email protected] > > Sent: Fri, June 3, 2011 5:09:09 AM > > Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF > > beserta kodenya/macro. > > > > > > Silakan dikembangkan, > > > > > > Sub Macro1_PDF_Excel2007() > > ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ > > "D:\Folder1\Folder2\NamaFile.pdf", Quality:= _ > > xlQualityStandard, IncludeDocProperties:=True, >IgnorePrintAreas:=False, > > > > _ > > OpenAfterPublish:=True > > End Sub > > > > > > >semoga bermanfaat > > > > --- In [email protected], kusdianto teguh teruri2000@ wrote: > > > > > > > > > > > > > > > > > > ----- Forwarded Message ---- > > > From: kusdianto teguh teruri2000@ > > > To: [email protected] > > > Cc: STDEV(i) setiyowati.devi@ > > > Sent: Thu, June 2, 2011 10:38:11 PM > > > Subject: > > > > > > > > > Assalamualaikum. > > > > > > Yang terhormat, para Pakar Excel di Forum ini > > > > > > Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian. > > > Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan lembaran > > > daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang kami > > > perlukan adalah bagaimana > > > > > > membuat tombol dan kodenya agar maksud saya tersebut dapat duwujudkan. > > > > > > Untuk jelasnya kami lampirkan daftar nilai tersebut. > > > > > > Atas bantuannya kami ucapkan terima kasih. > > > > > > Wassalam > > > > > > Teguh. > > > > > >
