Mungkin (mungkin loh ya) setelah baris yang brbunyi :
Range("I2") = halaman_Awal
sebelum proses printout, disisipi baris berbunyi :
activesheet.calculate
Jika masih belum juga, mungkin ditambah baris :
application.wait now + timevalue("00:00:02")
Wassalam,
Kid.
2013/1/31 vincent Yoes <[email protected]>
> Hai juga Mr.Kid
>
> terima kasih Mr.Kid rumusnya jitu sekali...
> cuma kenapa ya ketika saya aplikasikan dengan data yg banyak, setiap ada
> yg 1 halaman cetaknya 2 kali(1 halaman terisi data dan yang 1 lagi kosong
> hanya tercantum nama, alamat, no sj) ...
> Sepertinya setiap range yg cetaknya cuma 1 di halaman awalnya tidak mau
> ganti 1 padahal sudah ada "for halaman awal = 1 to halaman akhir" mohon
> pencerahannya master....
>
> Terima kasih
> ------------------------------
> *From:* Mr. Kid <[email protected]>
> *To:* [email protected]
> *Sent:* Wednesday, January 30, 2013 2:31 AM
> *Subject:* Re: [belajar-excel] print di continous form dg hal yg tdk urut
>
>
> Hai Vincent,
>
> Inputan dari form yang di-loop dalam event click tombol print harus dicek
> ke sheet database kolom A lebih dulu,
> Jika ada, lanjutkan dengan loop print per halaman. Kalau tidak ada, lewati
> proses print per halaman.
>
> Bagian untuk print per halaman itu bisa dimasukkan kedalam blok kondisi
> seperti :
> If
> Application.WorksheetFunction.CountIf(Sheet2.Range("a1").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
>
> Bagian IF adalah cek jumlah record di kolom A sheet database (sheet2) yang
> nilainya adalah sama dengan nilai dalam variabel Page.
>
> Wassalam,
> Kid.
>
> 2013/1/30 vincent Yoes <[email protected]>
>
> Dear Rekan Rekan belajar-excel
>
> Kemarin masalah sudah terpecahkan oleh rekan ferdiansyah, cuma ketika saya
> trial dengan bentuk yang berbeda
> ternyata saya butuh bantuannya lagi.
>
> * Ketika tercetak melalui userform no sj 122 s/d 125, hasil cetakan nya
> malah urutdari 122,123,124,125.
> Padahal di no sj tidak ada no 124. Harapannya yg tecetak 122,123,125
> utak atik vba codenya hasilnya sama aja…..gimana caranya biar dia
> tercetak 122,123,125
>
> Mohon pencerahan kembali rekan-rekan.
>
>
> Terima kasih
>
>
> ------------------------------
> *From:* Muhammad Ferdiansyah <[email protected]>
> *To:* [email protected]
> *Sent:* Monday, January 28, 2013 11:55 PM
> *Subject:* RE: [belajar-excel] print dengan continous form
>
> Maaf om, kita bukan master, hanya user yg iseng” nyoba.. J
>
>
> Oh, ternyata saya baru menangkap apa yg dimaksud..:D
>
> Untuk cell I2 (no sj cetak), adalah jumlah SJ yg akan di cetak?
> Sedangkan jika data yg dicetak lebih dari 1 halaman maka akan mengeprint
> sesuai jumlah halamannya ya om?
>
> Berarti harus diotak-atik lagi..
>
> File terlampir.
>
> Semoga tepat sasaran..
> hehe
>
>
>
> *From:* [email protected] [mailto:
> [email protected]] *On Behalf Of *vincent Yoes
> *Sent:* Tuesday, January 29, 2013 1:10 PM
> *To:* [email protected]
> *Subject:* Re: [belajar-excel] print dengan continous form
>
>
> thanks to master M.Ferdiansyah
> berarti yang tercetak by page ya...
> kalo untuk no SJ 2 cara nyambunginnya gimana ya.....
> thanks
> ------------------------------
> *From:* M. Ferdiansyah <[email protected]>
> *To:* [email protected]
> *Sent:* Monday, January 28, 2013 9:43 PM
> *Subject:* Re: [belajar-excel] print dengan continous form
>
>
> Iseng" otak-atik formulanya saja..
>
> file terlampir.
>
> Maaf kl salah.
> :)
>
> >
> >
> > Dear Master VBA excel
> > mohon bantuannya
> >
> > saya mau print ini di form cetakan ternyata jumlah item barang terlalu
> > banyak
> > dan membutuhkan lembar ke dua dengan no sj yg sama.
> > gimana ya biar otomatisasinya bisa continous tidak terputus…???
> > Mohon pencerahannya para MASTER VBAÂ Â
> >
> >
> > saya sertakan juga sampe form-nya
> >
> > Terima Kasih
>
> ____________ _________ _________ _________ _________ _________ _________
> 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.
> ____________ _________ _________ _________ _________ _________ _________
>
>
>
>
>
>
>
<<image002.jpg>>
<<image001.jpg>>
