Sub uf_PageBreak(ByVal strdaerah As String, antarbaris As Long)
Dim awalbaris As Long
Dim jumbaris, kali_PB As Long
Dim daerah As Range
Set daerah = Range(strdaerah)
awalbaris = daerah.Row
jumbaris = daerah.Rows.Count
kali_PB = Excel.WorksheetFunction.RoundUp(jumbaris / antarbaris, 0)
ActiveSheet.ResetAllPageBreaks
For I = 1 To kali_PB
Range("A" & awalbaris + (I * antarbaris) + 1).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
Next I
End Sub
Sub test()
Call uf_PageBreak("A10:C82", 15)
End Sub
Pada 17 Juni 2011 06:13, Franciscus SOG <[email protected]> menulis:
>
>
> Dear Anto,
>
> Permintaan Anda itu mungkin dilakukan.
>
> Untuk set print area, jika Anda menginginkan setiap 30 baris data
> menjadi next page. Maka Anda perlu insert 1 row sebagai pembatas.
> Karena ("A1:A30","A31:A60") dibaca menjadi ("A1:A60").
>
> Dampak dari insert row tersebut bisa mempengaruhi hasil di worksheet
> Anda. Apalagi jika cells Anda sudah tidak sehat (misalnya di merge
> cells).
>
> Maaf, saya belum bisa memberikan solusi, karena saya terbentur dengan
> logika memecah range ("A1:A100") menjadi
> ("A1:A30","A32:A61","A63:A92","A94:A103").
>
> Untuk codingnya sendiri, defaultnya seperti ini :
>
> ActiveSheet.PageSetup.PrintArea = Areaku
>
> Areaku merupakan lokasi yang diselect dan sudah dipecah seperti contoh
> diatas.
>
> Blessings,
>
> Fran'z
>
>
> On 6/17/11, Nicodemus Rusdiyanto <[email protected]> wrote:
> > Dear All,
> >
> > Ada yang punya pengalaman dan cara meng-otomatiskan print area range
> sesuai
> > dengan data yang dikehendaki, tanpa harus drag per page ?
> > Misal di data ini saya mau cetak dengan kriteria sorting ZONE NO =>
> LOCATION
> > => CATEGORY => PRODUCT NO (ini baru urutan datanya dulu)
> > Setelah itu pada saat cetak, bisa diotomatiskan dipisahkan sesuai ZONE NO
> > atau tidak ?
> > Jadi kalau 1 zone punya 100 product, per page harus 30, maka akan jadi 4
> > page, dengan page terakhir hanya berisi 10 product tidak masalah.
> >
> > Mohon pencerahan dan complainnya kalau case-nya kurang jelas :D
> >
> > Thanks,
> > Anto
> >
> > The message is ready to be sent with the following file or link
> attachments:
> >
> > SET_PRINT_AREA_AUTO
> >
> >
> > Note: To protect against computer viruses, e-mail programs may prevent
> > sending or receiving certain types of file attachments. Check your e-mail
> > security settings to determine how attachments are handled.
> >
>
>
>
