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 WithWith ActiveSheet .Name = "numero" & i .Range("K9").Value = iEnd WithNext 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 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.> > >> >>
