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. > > >
