mantab bung ferdi rumusnya tepat sasaran.halaman yang tercetak sudah sesuai harapan
terimakasih banyak bung ferdi..... ________________________________ From: M. Ferdiansyah <[email protected]> To: [email protected] Sent: Thursday, January 31, 2013 5:28 PM Subject: Re: [belajar-excel] print di continous form dg hal yg tdk urut Coba juga dengan file terlampir.. Semoga tepat sasaran.. wassalam, Ferdy > Coba file terlampir yang menggunakan print preview. > Jalankan form, isi dengan SJ awal 123 dan SJ akhir juga 123 lalu tekan > tombol print. > Zoom print preview dan lihat nomor urut. > untuk cetak ke kertas, non aktifkan baris printpreview dan aktifkan baris > perintah printout > > Wassalam, > Kid. > > 2013/1/31 vincent Yoes [email protected]> > >> ** >> >> >> 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 >> ------------------------------ >> ** >> >> >> >> >> >> > ____________ _________ _________ _________ _________ _________ _________ Notice : This e-mail (and any attachment) is strictly confidential and is intended only for the addressee(s)above. Is strictly prohibited to forward, print, copy, or otherwise reproduce this message that would allow it to be viewed by any individual not originally listed as a recipient(s). If you have received this e-mail in error, please immediately notify the sender and delete this message. The opinions expressed in this e-mail (and any attachment) are those of the individual sender and may not necessarily reflect the views of PT Pusri. ____________ _________ _________ _________ _________ _________ _________
