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
