Re: ]] XL-mania [[ Mencetak semua sheet dalam format PDF

Mon, 05 Sep 2011 18:09:16 -0700 

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

File terlampir
 
 
>semoga bermanfaat

 
 
From: "Laturiuw, Arthur" <[email protected]>
To: "[email protected]" <[email protected]>
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
 
 

Attachment: __Cetak-SemuaSheet-KePDF__.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12

Kirim email ke