Saya juga senang kok pak,, :) Terima kasih atas feedback-nya
--- In [email protected], kusdianto teguh <teruri2000@...> wrote: > > Terima kasih banyak atas bantuannya. > Saya senang sudah berhasil membuat tombol cetak ke PDF semua record menjadi > satu > halaman. > > > Forum Belajar-Excel memang OK. > Salam, Teguh. > > > > > > > ________________________________ > From: summonery <summonery@...> > To: [email protected] > Sent: Fri, June 3, 2011 9:36:56 AM > Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF > beserta kodenya/macro. > > > koreksi untuk update tiap siswa :) > silakan dicoba, > > 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], "summonery" <summonery@> wrote: > > > > coba, > > Sub Print_To_PDF()'anton suryadi > > 3/Juni/2011'http://tech.groups.yahoo.com/group/belajar-excel/message/107\ > > 23Dim x As WorksheetApplication.ScreenUpdating = > > FalseApplication.DisplayAlerts = Falsen = InputBox("satu sampai dengan > > berapa?")If n = "" Then EndFor i = 1 To nWith ActiveSheet .Copy > > After:=ActiveSheetEnd WithActiveSheet.Name = "numero" & iNext iFor Each > > x In Worksheets If InStr(x.Name, "numero") <> 0 Then x.Select > > (False) End IfNext > > xMacro1_PDF_Excel2007ActiveWindow.SelectedSheets.DeleteApplication.Scree\ > > nUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub > > Sub Macro1_PDF_Excel2007() ActiveSheet.ExportAsFixedFormat > > Type:=xlTypePDF, Filename:= _ "D:NamaFile.pdf", Quality:= _ > > xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, > > _ OpenAfterPublish:=TrueEnd 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. > > > > > > > > > >
