Coba array formula dalam array block di range g6:g15 sheet form diganti dengan : =SMALL(IF(C4=DATA_BASE!$B$3:$B$59,ROW(DATA_BASE!$B$3:$B$59)-2),ROW(1:10)+($I$2*10-10))
Wassalam, Kid. 2013/1/31 vincent Yoes <[email protected]> > saya coba belum bisa Mr.Kid > rumusnya begini > Private Sub cmd_print_Click() > Dim WKS As Worksheet > Set WKS = Worksheets("form") > > WKS.Activate > If tb_fr = "" Then tb_fr = 1 > If tb_to = "" Then tb_to = 1 > > halaman_akhir = Range("J2").Value > For Page = tb_fr To tb_to > Unload Me > Range("C4") = Page > > > If Application.WorksheetFunction.CountIf(Sheet2.Range("b1").EntireColumn, > Page) <> 0 Then > For halaman_Awal = 1 To halaman_akhir > Range("I2") = halaman_Awal > ActiveSheet.PrintOut From:=1, To:=1, _ > Copies:=1, Collate:=True > Next halaman_Awal > End If > Next Page > > End Sub > > apakah ada yang salah dengan rumus ini.... > hasilnya pas range halaman_akhir 2 di halaman_awal masih tercetak 1 > kemudian lanjut ke no sj selanjutnya... > > mohoh pencerahannya Mr.Kid > > Terima kasih banyak atas bantuannya > ------------------------------ > ** > >
