Coba event click pada tombol print diisi dengan script : Dim rng As Range, rngData As Range
Application.ScreenUpdating = False Set rngData = ORDERPPA2.Range("d8:d22,d25:d39") For Each rng In rngData If LenB(rng.Value) = 0 Then rng.EntireRow.Hidden = True End If Next rng Application.ScreenUpdating = True ORDERPPA2.Range("b1:f47").PrintOut rngData.EntireRow.Hidden = False Wassalam, Kid. 2013/6/11 Harry <hariansyah...@yahoo.com> > ** > > > Dear BeExceller, > > Lebih jauh mempelajari tentang UserForm yang berfungsi untuk mencetak > Sheet yang kita inginkan, selama ini saya menggunakan rumus sbb: > > Private Sub Cmdcetak_Click() > Set wsdtbs = Sheets("BILL") > wsdtbs.PrintOut copies:=1, collate:=True > End Sub > > Dengan menggunakan rumus tersebut berarti kita dapat mencetak semua yang > termasuk dalam Sheet yang kita maksudkan. > Tapi bagaimana caranya jika saya ingin mencetak bagian yang ada isinya > saja. > > Sebagaimana lampiran yang saya sertakan, misalnya saya ingin mencetak > Sheet yang namanya BILL. > Pada Sheet tersebut yang ingin saya cetak hanyalah yang tidak saya warnai > sementara yang berwarna tidak ter-print atau dengan kata lain Automatic > Hiden. > > Mohon pencerahan dari rekan-rekan BeExceller sekalian. > > Terima kasih & Wassalam, > > > Harry > > N/B: > Yang berwarna tidak di cetak > > >