mungkin,
Sub Cetak_PDF()
'anton suryadi, 5/Sep/2011
'print semua sheet excel ke format PDF
Application.ScreenUpdating = False
Shapes("PDF").Visible = False
Sheets.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\user\Downloads\Cetak-SemuaSheet-KePDF.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("Rekap").Select
Shapes("PDF").Visible = True
Application.ScreenUpdating = True
End Sub
'anton suryadi, 5/Sep/2011
'print semua sheet excel ke format PDF
Application.ScreenUpdating = False
Shapes("PDF").Visible = False
Sheets.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\user\Downloads\Cetak-SemuaSheet-KePDF.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("Rekap").Select
Shapes("PDF").Visible = True
Application.ScreenUpdating = True
End Sub
File terlampir
>semoga bermanfaat
From: "Laturiuw, Arthur" <Arthur.Laturiuw@nov.com>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Monday, September 5, 2011 9:57 AM
Subject: ]] XL-mania [[ Mencetak semua sheet dalam format PDF
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Monday, September 5, 2011 9:57 AM
Subject: ]] XL-mania [[ Mencetak semua sheet dalam format PDF
Dear para pakar XL mania,
Saya ada tugas rutin tiap bulan untuk membuat laporan dalam format PDF yang data olahanya dalam format excel.
Apakah dimungkinkan mencetak semua sheet sekaligus jika di sheet rekap saya tekan tombol "CETAK SEMUA SHEET" seperti terlampir.
Terima kasih atas bantuan pakar XL mania.
Salam
Arthur
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat idul fitri, mohon maaf lahir dan batin... |
| www.linkedin.com/company/xl-mania |
| ayo pesan buku "mengapa boss benci chart anda" :D :D :D |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| selamat idul fitri, mohon maaf lahir dan batin... |
| www.linkedin.com/company/xl-mania |
| ayo pesan buku "mengapa boss benci chart anda" :D :D :D |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário