dear Anwar,
dengan loop keseluruh worksheet dan melakukan cek sheet visible atau tidak.
Semua sheet hidden akan di-print, dengan mem-visiblekan dulu, lalu print,
dan di-hidden lagi.
Public Sub Cetak()
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Worksheets
'cek, jika sheet hidden, lakukan print
If Not sht.Visible = xlSheetVisible Then
'tampilkan dulu sheet yang hidden
sht.Visible = xlSheetVisible
'print
sht.PrintOut
'sembunyikan lagi
sht.Visible = xlSheetVeryHidden
End If
Next
Application.ScreenUpdating = True
End Sub
good luck,
kid
2009/2/17 Anwar <[email protected]>
> Para suhu Excel yg jenius, tolongin bantu kesulitan saya dung…
>
>
>
> Saya ingin sheet2 s/d sheet4 disembunyikan,
>
> tapi saat aku tekan tombol "print" langsung bisa cetak print area dlm
> sheet2 s/d sheet4 tsb tanpa harus melihatnya,
>
> bisa gak yaa?
>
> NB: tlg macronya kl bisa jangan diprotect ya biar sy jg bisa belajar
> ngembanginnya.. J
>
>
>
> Thx be4 n' regards
>
> Yanan
>
>
