Dear Pak Franz,
Sebenarnya indikasi 30 rows per page adalah sample,
Hanya untuk mengindikasikan sisa di page terakhir, apa bila ada sisa dalam
satu criteria, harus tetap di cetak.
Misal di zone RA-E-1 ada 51, misal 1 page 50, maka sisa 1 page tetap
mencetak 1 row itu.
Tapi dipisahkan dengan
Dear master Franciscus
terima kasih banyak y
bantuan anda sangat membantu saya
Dari: Franciscus SOG
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 18 Juni 2011 11:32
Judul: Re: [belajar-excel] nubie minta tolong copy data beda tempat
Dear Irham,
Semoga m
coba,
Sub PageBreakSetup()'anton suryadi, 18/Juni/2011With
Worksheets("DATA")Set x = .Cells(1).CurrentRegion
.ResetAllPageBreaksWith .PageSetup.Orientation =
xlLandscape'atau xlPortrait.PrintArea = x.Address
.PrintTitleRows = "$1:$1"
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
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
Mungkin maksud dari sebar, akan membuka file yang tidak se-folder.
Bagian ThisWorkbook.Path berarti path-nya si workbook aktif, yang hasilnya
bisa seperti : G:\Data\AplikasiUtama
Jika data ada pada folder lainnya, misal di H:\Data\Data si anu
maka bagian ThisWorkbook.Path diubah menjadi "H:\Data\D
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 saa
7 matches
Mail list logo