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>>
