Yth. Mbak Devi Terima kasih atas bantuan dan nasehatnya. Alhamdulillah saya sudah mencobanya dan berhasil, lalu bagaimana agar file pdf tadi terkumpul menjadi satu file saja yang terdiri atas 13 lembar (13 data murid/record).
Wassalam Teguh ________________________________ From: STDEV(i) <[email protected]> To: belajar-excel <[email protected]> Sent: Fri, June 3, 2011 7:20:49 AM Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro. makro cetak yg sudah ada dapat diganti seperti ini diperingkas dan dinamis (mengikuti banyaknya records dlm tabel) Sub Cetak() ' Cetak Macro ' Tombol cetak lembaran nilai Dim TbNR As Range, nRow As Long Set TbNR = Sheets("NR").Range("A13").CurrentRegion.Offset(3, 0) Set TbNR = TbNR.Resize(TbNR.Rows.Count - 3, TbNR.Columns.Count) For nRow = 1 To TbNR.Rows.Count Range("K9").Value = nRow ActiveWindow.SelectedSheets.PrintPreview Next End Sub note: 1. nilai TbNR.Rows.Count akan berubah ubah ostosmastiss sesuai banyaknya records di tabel NR 2. untuk posting y.a.d. dimohon tidak perlu CrossPosting, cuku dialamatkan ke milis saja (lihat peraturan milis) 2011/6/3 kusdianto teguh <[email protected]> > >----- Forwarded Message ---- >From: kusdianto teguh <[email protected]> >To: [email protected] >Cc: STDEV(i) <[email protected]> >Sent: Thu, June 2, 2011 10:38:11 PM >Subject: > > >Assalamualaikum. >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. >
