Setelah Anda membaca artikel kami sebelumnya yaitu Kode Macro Cetak Database Excel Ke PDF, maka sekarang silahkah simak artikel kami dibawah ini.
KODE MACRO CETAK BANYAK SHEETS KE PDF
Sebenarnya cara dan langkah-lagkahnya sama seperti Cara Cetak Data Sheets Ke PDF, hanya saja ini cetakan lebih dari 1 sheets. Dan untuk langkah-langkahnya dapat Anda simak dibawah ini :
1. Buka Microsoft Excel
2. Buatlah data di sheet1 dan sheet2
3. Buatlah tombol melalui menu ribbon Developer
4. Klik kanan pilih asign macro dan masukan kode macro dibawah ini.
'nama cetak lagi dibawah adalah nama sub
'sobat bisa menggantinya sesuka sobat, tapi di sheet1 pada project juga harus mengganti sesuai nama sub
Sub cetaklagi()
'4 baris dibawah adalah sheet dan range yang sudah di set print area pada menu peglayot dan akan di print ke pdf
Sheets("sheet1").Select: Range("Print_Area").Select
Sheets("sheet2").Select: Range("Print_Area").Select
'mencetak di banyak sheet, disini kami menggunakan sheet1 dan sheet2, jika sobat menginginkan lebih dari 2 sheet
'sobat tinggal nambahin , "shet2" menjadi , "sheet3" dan seterusnya
'aray bermaksud untuk merangkap beberapa sheet atau menjadikan 1 group
ThisWorkbook.Sheets(Array("sheet1", "sheet2")).Select
'jika ada tanda _ maka dibawanya nggak boleh ada rumus lain selain rumus yang berkesinambungan
'jika sobat enter maka akan berwarna merah
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\temp\temp.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
openAfterPublish:=True
'setelah dijadikan PDF sekarang kembali ke sheet1
Sheets("sheet1").Select
'dan menuju ke range A1
Range("A1").Select
'terakhir kita buat pesan seperti dibawah
MsgBox "data telah dipindah ke PDF", vbInformation
End Sub
'=====warna hijau boleh sobat hapus jika sudah faham=======
'sobat bisa menggantinya sesuka sobat, tapi di sheet1 pada project juga harus mengganti sesuai nama sub
Sub cetaklagi()
'4 baris dibawah adalah sheet dan range yang sudah di set print area pada menu peglayot dan akan di print ke pdf
Sheets("sheet1").Select: Range("Print_Area").Select
Sheets("sheet2").Select: Range("Print_Area").Select
'mencetak di banyak sheet, disini kami menggunakan sheet1 dan sheet2, jika sobat menginginkan lebih dari 2 sheet
'sobat tinggal nambahin , "shet2" menjadi , "sheet3" dan seterusnya
'aray bermaksud untuk merangkap beberapa sheet atau menjadikan 1 group
ThisWorkbook.Sheets(Array("sheet1", "sheet2")).Select
'jika ada tanda _ maka dibawanya nggak boleh ada rumus lain selain rumus yang berkesinambungan
'jika sobat enter maka akan berwarna merah
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\temp\temp.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
openAfterPublish:=True
'setelah dijadikan PDF sekarang kembali ke sheet1
Sheets("sheet1").Select
'dan menuju ke range A1
Range("A1").Select
'terakhir kita buat pesan seperti dibawah
MsgBox "data telah dipindah ke PDF", vbInformation
End Sub
'=====warna hijau boleh sobat hapus jika sudah faham=======
Jika Anda melakukan langkah-langkah diatas dengan benar dan penempatan kode macro yang sesuai maka kode akan berjalan dengan baik, terimakasih telah mengunjungi blog kami sehingga jabat erat.
Post a Comment for "KODE MACRO CETAK BANYAK SHEETS KE PDF"