Re: [belajar-excel] print di continous form dg hal yg tdk urut

vincent Yoes Wed, 30 Jan 2013 23:28:44 -0800

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

From: Mr. Kid <[email protected]>
To: [email protected]
Sent: Wednesday, January 30, 2013 9:01 PM
Subject: Re: [belajar-excel] print di continous form dg hal yg tdk urut

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.
____________ _________ _________ _________ _________ _________ _________

Re: [belajar-excel] print di continous form dg hal yg tdk urut

Kirim email ke