masih gagal Mr.Kid.... malah sekarang yg hanya 1 halaman jd tercetak 2 lg cm yg hal ke 2 tercetak kosong. kalo yg dah 2 halaman benar tercetak semua......
ok deh...thanks Mr.Kid atas bantuannya dan thanks to rekan2[belajar-excel] Terima kasih Vincent ________________________________ From: Mr. Kid <[email protected]> To: [email protected] Sent: Wednesday, January 30, 2013 11:40 PM Subject: Re: [belajar-excel] print di continous form dg hal yg tdk urut 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 > > >________________________________ > > >
