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/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], "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. > > > > > >
