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.
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-excelKemarin masalah sudah terpecahkan oleh rekan ferdiansyah, cuma ketika saya trial dengan bentuk yang berbedaternyata 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,125utak 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.. JOh, ternyata saya baru menangkap apa yg dimaksud..:DUntuk 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..heheFrom: [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 formthanks 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 formIseng" 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.
____________ _________ _________ _________ _________ _________ _________
