coba,
Sub PageBreakSetup()'anton suryadi, 18/Juni/2011 With
Worksheets("DATA") Set x = .Cells(1).CurrentRegion
.ResetAllPageBreaks With .PageSetup .Orientation =
xlLandscape 'atau xlPortrait .PrintArea = x.Address
.PrintTitleRows = "$1:$1" .FitToPagesWide = 1
.FitToPagesTall = False End With For i = 1 To x.Rows.Count
Step 30 .VPageBreaks.Add Before:=Columns("G")
.HPageBreaks.Add Before:=Rows(i + 30 + 1) Next End WithEnd Sub
>semoga bermanfat
--- In [email protected], Nicodemus Rusdiyanto
<nicodemus@...> 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.
>
