[belajar-excel] Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro.

classic Classic list List threaded Threaded
14 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro.

kusdianto teguh




----- Forwarded Message ----
From: kusdianto teguh <[hidden email]>
To: [hidden email]
Cc: STDEV(i) <[hidden email]>
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.

Nilai Ujian SMP.xlsm (137K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro.

summonery
Administrator
Silakan dikembangkan,

Sub Macro1_PDF_Excel2007()    ActiveSheet.ExportAsFixedFormat
Type:=xlTypePDF, Filename:= _        "D:\Folder1\Folder2\NamaFile.pdf",
Quality:= _        xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas:=False, _        OpenAfterPublish:=TrueEnd Sub

>semoga bermanfaat

--- In [hidden email], kusdianto teguh <teruri2000@...>
wrote:

>
>
>
>
>
> ----- Forwarded Message ----
> From: kusdianto teguh teruri2000@...
> To: [hidden email]
> 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.
>

Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro.

kusdianto teguh
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 <[hidden email]>
To: [hidden email]
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 [hidden email], kusdianto teguh <teruri2000@...> wrote:

>
>
>
>
>
> ----- Forwarded Message ----
> From: kusdianto teguh teruri2000@...
> To: [hidden email]
> 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.
>

 
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro.

sofyanefendi
Administrator
Dear Mas Teguh, yg diinginkan apakah 13 lembar ini di print menjadi 1 file pdf yg didalamnya ada 13 halaman (berisi data 13 murid), atau menjadi 13 file pdf dengan masing2 hanya berisi data 1 murid saja?

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
  ----- Original Message -----
  From: kusdianto teguh
  To: [hidden email]
  Sent: Friday, June 03, 2011 9:53 AM
  Subject: Re: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro.


   

  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 <[hidden email]>
  To: [hidden email]
  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 [hidden email], kusdianto teguh <teruri2000@...> wrote:
  >
  >
  >
  >
  >
  > ----- Forwarded Message ----
  > From: kusdianto teguh teruri2000@...
  > To: [hidden email]
  > 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.
  >


 
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro untuk lebih dari satu data.

kusdianto teguh
Yth. Mas Sofyan Efendi

Ya mas saya menginginkan 13 lembar  ini di print menjadi 1 file pdf yg
didalamnya ada 13 halaman (berisi data  13 murid).
Ini mas yang saya belum bisa, bisanya hanya i lembar saja untuk 1 data murid,
maklum nggak pernah kursus komputer, jadi ya try and error saja belajarnya.
Untung saya
bisa mengikuti forum excel ini yang manfaatnya sangat berguna bagi saya.
Terima kasih mas atas bantuannya.

Wassalam

Teguh





________________________________
From: Sofyan Efendi <[hidden email]>
To: [hidden email]
Sent: Fri, June 3, 2011 6:12:35 AM
Subject: Re: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF
beserta kodenya/macro.

 

Dear Mas Teguh, yg diinginkan apakah 13 lembar  ini di print menjadi 1 file pdf
yg didalamnya ada 13 halaman (berisi data  13 murid), atau menjadi 13 file pdf
dengan masing2 hanya berisi data 1 murid  saja?
 
Wassalaamu'alaikum Warahmatullahi  Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
----- Original Message -----

>From: kusdianto    teguh
>To: [hidden email]
>Sent: Friday, June 03, 2011 9:53 AM
>Subject: Re: [belajar-excel] Re: Tombol    cetak ke printer dan tombol cetak ke
>PDF beserta kodenya/macro.
>
>  
>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 <[hidden email]>

>To: [hidden email]
>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 [hidden email], kusdianto teguh    <teruri2000@...>
wrote:

>>
>>
>>
>>
>>
>> ----- Forwarded Message ----
>> From: kusdianto teguh    teruri2000@...
>> To: [hidden email]
>> 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.
>>
>
 

Nilai Ujian SMP.xlsm (139K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro.

siti Vi
Administrator
In reply to this post by kusdianto teguh
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 <[hidden email]>

>
> ----- Forwarded Message ----
> *From:* kusdianto teguh <[hidden email]>
> *To:* [hidden email]
> *Cc:* STDEV(i) <[hidden email]>
> *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.
>

ctv_cetak Nilai Ujian SMP.xlsm (136K) Download Attachment
~siti
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Tombol cetak ke printer atau tombol cetak ke PDF

kusdianto teguh
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) <[hidden email]>
To: belajar-excel <[hidden email]>
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 <[hidden email]>


>
>----- Forwarded Message ----
>From: kusdianto teguh <[hidden email]>
>To: [hidden email]
>Cc: STDEV(i) <[hidden email]>
>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.
>

 
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro.

summonery
Administrator
In reply to this post by kusdianto teguh
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 [hidden email], 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: [hidden email]
> 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 [hidden email], kusdianto teguh teruri2000@
wrote:

> >
> >
> >
> >
> >
> > ----- Forwarded Message ----
> > From: kusdianto teguh teruri2000@
> > To: [hidden email]
> > 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.
> >
>

Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro.

summonery
Administrator
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 [hidden email], "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 [hidden email], 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: [hidden email]
> > 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 [hidden email], kusdianto teguh teruri2000@
> wrote:
> > >
> > >
> > >
> > >
> > >
> > > ----- Forwarded Message ----
> > > From: kusdianto teguh teruri2000@
> > > To: [hidden email]
> > > 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.
> > >
> >
>

Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Tombol cetak semua kedalam 1 file pdf.

kusdianto teguh
In reply to this post by summonery
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 <[hidden email]>
To: [hidden email]
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 [hidden email], 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: [hidden email]
> 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 [hidden email], kusdianto teguh teruri2000@ wrote:
> >
> >
> >
> >
> >
> > ----- Forwarded Message ----
> > From: kusdianto teguh teruri2000@
> > To: [hidden email]
> > 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.
> >
>

 

Nilai Ujian SMP.xlsm (146K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Re: Tombol cetak semua kedalam 1 file pdf.

summonery
Administrator
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 [hidden email], 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:
[hidden email]> 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
[hidden email], 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:
[hidden email]> > 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 [hidden email], kusdianto teguh
teruri2000@ wrote:> > >> > > > > > > > > > > > > > > ----- Forwarded
Message ----> > > From: kusdianto teguh teruri2000@> > > To:
[hidden email]> > > 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.> > >> >>
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro.

kusdianto teguh
In reply to this post by summonery
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 <[hidden email]>
To: [hidden email]
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 [hidden email], "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 [hidden email], 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: [hidden email]
> > 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 [hidden email], kusdianto teguh teruri2000@
> wrote:
> > >
> > >
> > >
> > >
> > >
> > > ----- Forwarded Message ----
> > > From: kusdianto teguh teruri2000@
> > > To: [hidden email]
> > > 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.
> > >
> >
>

 

Nilai Ujian SMP - Rev by Summonery Final OK..xlsm (146K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Tombol cetak semua kedalam 1 file pdf.

kusdianto teguh
In reply to this post by summonery
Terima kasih Pak Anton
Kodenya sudah saya ganti dengan kode revisi yang terakhir bapak kirimkan.
Dan berhasil sesuai dengan keinginan saya.

Sekali lagi terima kasih banyak.

Salam

Teguh





________________________________
From: summonery <[hidden email]>
To: [hidden email]
Sent: Fri, June 3, 2011 10:55:50 AM
Subject: [belajar-excel] Re: Tombol cetak semua kedalam 1 file pdf.

 
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
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 [hidden email], 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: [hidden email]
> 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 [hidden email], 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: [hidden email]
> > 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 [hidden email], kusdianto teguh teruri2000@ wrote:
> > >
> > >
> > >
> > >
> > >
> > > ----- Forwarded Message ----
> > > From: kusdianto teguh teruri2000@
> > > To: [hidden email]
> > > 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.
> > >
> >
>
 
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro.

summonery
Administrator
In reply to this post by kusdianto teguh
Saya juga senang kok pak,, :)

Terima kasih atas feedback-nya



--- In [hidden email], 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: [hidden email]
> 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 [hidden email], "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 [hidden email], 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: [hidden email]
> > > 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 [hidden email], kusdianto teguh teruri2000@
> > wrote:
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > ----- Forwarded Message ----
> > > > From: kusdianto teguh teruri2000@
> > > > To: [hidden email]
> > > > 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.
> > > >
> > >
> >
>