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 <[email protected]>
> **
>
>
> 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
>
>
>
