Dh,
Coba dilihat dibagian
While Not IsEmpty(.Cells(i, 4).Value)
coba diganti dengan
While .Cells(i, 4).Value <> ""
Lalu untuk namasheet Printout, sebaiknya gunakan nama lain, hal ini
dikarenakan "PrinOut" merupakan sebuah fungsi internal milik vba excel
With PRINTOUT => diubah menjadi => With SheetPrint (tentunya
setelah merename SheetName di Sheet Propertiesnya
Demikian disampaikan, terima kasih
Rgds,
_*De Premor*_
Pada 12/06/2013 15:41, Harry menulis:
> Dear BeExceller
> De Premor & Mr. Kid
>
> Terima kasih atas tanggapan dan informasinya.
> Script yang diinformasikan oleh De Premor sudah sesuai dengan
> pertanyaan saya.
> Namun pada pertanyaan saya tersebut ternyata ada yang kurang, yaitu
> setiap baris kosong tersebut memiliki rumus masing-masing.
> Terlampir Studi Kasus saya sertakan.
>
> Mohon informasinya.
>
> Terima kasih & Wassalam,
>
>
>
> Harry
>
> N/B: Kolom H1 merupakan barometer perubahan data yang ingin di print
>
>
> ------------------------------------------------------------------------
> *Dari:* De Premor <[email protected]>
> *Kepada:* [email protected]
> *Cc:* Harry <[email protected]>
> *Dikirim:* Selasa, 11 Juni 2013 23:05
> *Judul:* Re: [belajar-excel] UserForm Print (dengan syarat & kondisi)
>
> ngga ngerti bahasa VBA, tak coba pakai bahasa logika sederhana saja
> sesuai kemampuan daku aja ya
>
> /Private Sub Cmdcetak_Click()//
> /
>
> /Dim i, iMakanan, iMinuman As Integer, Cur As String/
> /Cur = ActiveCell.Address/
> /With ORDERPPA2/
> / i = 8: While Not IsEmpty(.Cells(i, 4).Value): i = i + 1:
> iMakanan = i: Wend/
> / i = 25: While Not IsEmpty(.Cells(i, 4).Value): i = i + 1:
> iMinuman = i: Wend/
> / .Range(iMakanan & ":22, " & iMinuman & ":39").Select:
> Selection.EntireRow.Hidden = True///
> / .PrintOut copies:=1, collate:=True/
> / .Range(iMakanan & ":22, " & iMinuman & ":39").Select:
> Selection.EntireRow.Hidden = False/
> /End With/
> /Range(Cur).Activate/
>
> /End Sub//
> /
> Pada 11/06/2013 16:42, Harry menulis:
>> 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
>
>
>
>
